Select Code to Download

open (my $in_fh, $infile) or die;
local $/; # enable slurping mode
my $data = <$in_fh>;
close $in_fh;

my $data = handoverthedata();
(...)
...
    # Data
    return $foo;
}