$ perl -wle 'print sub {crypt $_ [0], $_ [0]} -> (time)'

##</code><code>##

$ perl -wle 'print crypt($_, $_) for time;'