Select Code to Download

#!/usr/local/bin/perl
use strict;
...
foreach my $line (<>) {
    print "$line";
}

#!/usr/local/bin/perl
use strict;
...
foreach my $line (<$fh>) {
    print "$line";
}