Help for this page
while (my $line = <IN>) { chomp $line; ...
use strict; use warnings; ... print "Outer: \$_ = $_\n"; }
23:21 >perl 2004_SoPW.pl Outer: $_ = A ... Outer: $_ = C 23:22 >