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