Select Code to Download

#!/usr/bin/perl

...
while (my $seq = <$IN2>) {
    print "line: '$seq'\n";
}

$ perl -MO=Deparse ./808927.pl
die unless open my $IN2, '<', 'foo.txt';
...
}
./808927.pl syntax OK