tab

   1 #!/usr/bin/env perl
   2
   3 # tab
   4 # File ID: 126a11d4-5d46-11df-950e-90e6ba3022ac
   5
   6 $Tabs = $ARGV[0] ? $ARGV[0] : 1;
   7
   8 while (<STDIN>) {
   9         for (1..$Tabs) {
  10                 print "\t";
  11         }
  12         print "$_";
  13 }
  14
  15 #### End of file tab ####