Select Code to Download

my $filename; # used to remember the current file name
my $out = "output"; # prefix for output files
...
    }
    print $ofh $_;
}