[jens@dhcp32 jens]$ perl testmore.pl
1..8
ok 1 - new() returned something
ok 2 -   and it's the right class
ok 3 -   sec()
ok 4 -   min()
not ok 5 -   hour()
#     Failed test (testmore.pl at line 20)
#          got: '20'
#     expected: '16'
not ok 6 -   day()
#     Failed test (testmore.pl at line 21)
#          got: '5'
#     expected: '16'
ok 7 -   month()
ok 8 -   year()
# Looks like you failed 2 tests of 8.