my $bufsize = 8192; # typical size for i/o buffers
my ( $databuf, $readbuf, $nread );
while (( $nread = sysread( FH, $readbuf, $bufsize )) > 0 ) {
    $databuf .= $readbuf;
}
my $filesize = length( $databuf );