local $/ = 10000; # blocksize