() = eof(); read ARGV, $b, 1<<12 or die "cannot read ARGV: $!"; 
open(FH,shift) or die "cannot read file: $!";read FH, $b, 1<<12;