Select Code to Download

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

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