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