user-tools/prefixlines

   1 #!/usr/bin/env perl
   2
   3 =pod
   4
   5 =head1 NAME
   6
   7 prefixlines - Prefix lines from STDIN
   8
   9 =head1 SYNOPSIS
  10
  11 prefixlines [I<PREFIX>]
  12
  13 =cut
  14
  15
  16 $pfx = $ARGV[0] // "\t";
  17
  18 while(<STDIN>)
  19 {
  20         print "$pfx$_";
  21 }