Select Code to Download

my $buf;
$scalar .= $buf while read(FH, $buf, 4096);

my $size = (stat FH)[7];
read(FH, $scalar, $size);