perl -we '$_ = ""; $/ = \4096; while (defined($_.=<>)) { /([\x20-\x7e]*\z)/ and $_ = $1; }' /dev/urandom