[root@H99A100 user_history]# ./timeperl
Day '' out of range 1..31 at -e line 2