Select Code to Download

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 >