Select Code to Download

$/ = "";
while(<>) {
...
    open my $ifh, '<', $file or die $!;
    # ... and so on...
}