my $input;
sysread( $fh, $input, 1024);