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