C:\>type test.pl

print "\nRead files off command line\n";
while(<>) {
   print "$.  $_";
}

print "\n\nRead file in usual way\n";
$file = 'c:/test.pl';
open F, "<$file" or die "Oops Perl says $!";
while (my $line = <F>) {
  print "$.  $line";
}
close F;

print "\n\n\nPerl Rocks!\n";


C:\>perl test.pl test.pl

Read files off command line
1  print "\nRead files off command line\n";
2  while(<>) {
3     print "$.  $_";
4  }
5
6  print "\n\nRead file in usual way\n";
7  $file = 'c:/test.pl';
8  open F, "<$file" or die "Oops Perl says $!";
9  while (my $line = <F>) {
10    print "$.  $line";
11  }
12  close F;
13
14  print "\n\n\nPerl Rocks!\n";

Read file in usual way
1  print "\nRead files off command line\n";
2  while(<>) {
3     print "$.  $_";
4  }
5
6  print "\n\nRead file in usual way\n";
7  $file = 'c:/test.pl';
8  open F, "<$file" or die "Oops Perl says $!";
9  while (my $line = <F>) {
10    print "$.  $line";
11  }
12  close F;
13
14  print "\n\n\nPerl Rocks!\n";


Perl Rocks!

C:\>