rewrite stdin slurping to match example in perldoc -f unpack.