Select Code to Download

        if (!$output_handles{$name}) {
           open($output_handles{$name}, '>', "$name.info")
...

        my $handle = $output_handles{$name};
        print $handle $_;