open FILE,$file or die "$!";
my $len = (stat($file))[11];
while (sysread FILE, my $data, $len){ syswrite STDOUT, $data };