perl -w
print &crypt( (time) x 2);