$ 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.

##</code><code>##

use strict;
use warnings;
use Test::More tests => 1;

use DateTime;

ok(
	DateTime->now->second,
	'DateTime returns a value for "second" method',
);