$ perl -e "print time()"
1111167701