localhost:~ # perl -e 'print((localtime)[4]),"\n"'
5
localhost:~ # date
Thu Jun 21 13:40:18 CEST 2007