my $buf;
$scalar .= $buf while read(FH, $buf, 4096);
##</code><code>##

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