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