Select Code to Download

#!/usr/bin/perl
use strict;
...
        print $F $line;
    }
}

my %FHList;  # Holds file handles we've opened so far
sub get_file_handle {
...
    }
    return $FHList{$key};
}