gugod: echo rock-or-paper-or-scissor | perl -MTime::HiRes -MDigest::SHA=sha1_hex -lpE '$_ .= Time::HiRes::time(); say sha1_hex($_)'