Shell Programming and Scripting

$ cat x.pl
#!/usr/bin/env perl

my $infile;

$infile = $0;

open( IN , "< $infile") or die "Can't open $infile. $!";

my $line;
my $i = 0;
while( $line = <IN> ) {
  $i++;
  chomp $line;

  printf STDOUT "string$i $line\n";
}
close(IN);

$ x.pl
string1 #!/usr/bin/env perl
string2
string3 my $infile;
string4
string5 $infile = $0;
string6
string7 open( IN , "< $infile") or die "Can't open $infile. $!";
string8
string9 my $line;
string10 my $i = 0;
string11 while( $line = <IN> ) {
string12   $i++;
string13   chomp $line;
string14
string15   printf STDOUT "string$i $line\n";
string16 }
string17 close(IN);
string18
string19