perl -wTe '() = unpack $ARGV[0], 1e9;' p