perl -e'print(chr($_+((chr 54).(chr 50))))foreach((localtime(27756720))[1..4])'