binmode $fh;
my $file = '';
1 while read($fh, $file, 8*1024, length($file));