mdisk: Use color, red for error messages and green for success
[sunny256-utils.git] / tab
blob250d0a0b7252bf750b2fed05d08fe20540b62151
1 #!/usr/bin/env perl
3 # tab
4 # File ID: 126a11d4-5d46-11df-950e-90e6ba3022ac
6 $Tabs = $ARGV[0] ? $ARGV[0] : 1;
8 while (<STDIN>) {
9 for (1..$Tabs) {
10 print "\t";
12 print "$_";
15 #### End of file tab ####