my $scalar;
my $bytes = sysread(FILEHANDLE, $scalar, 1024);