Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $t2 = timelocal (0, 0, 0, 1, 0, $year+1);
    wantarray ? ($t1, $t2) : \($t1, $t2)
}

The day starts at Sat Nov  3 00:00:00 2007
The day ends at Sun Nov  4 00:00:00 2007
...
The month ends at Sat Dec  1 00:00:00 2007
The year starts at Mon Jan  1 00:00:00 2007
The year ends at Tue Jan  1 00:00:00 2008