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