Select Code to Download

use strict;
use warnings;
...
    my $data  = shift;
    print $fh $data or die $!
}

use strict;
use warnings;
...
    my $data  = shift;
    $$data .= $_ while <$fh>
}