$ date
Tue Mar  5 09:30:54 GMT 2013
$ perl ~/tmp/scratch.pl 
1..1
ok 1 - DateTime returns a value for "second" method
$ perl ~/tmp/scratch.pl 
1..1
ok 1 - DateTime returns a value for "second" method
$ perl ~/tmp/scratch.pl 
1..1
not ok 1 - DateTime returns a value for "second" method
#   Failed test 'DateTime returns a value for "second" method'
#   at /home/tai/tmp/scratch.pl line 7.
# Looks like you failed 1 test of 1.