Select Code to Download

open my $F, "<", $file or die;

open my $F, "<", $file or die;
while (my $line = <$F>) {
...
        # ...
    }
}