in reply to Two Weeks

Maybe this will help:
my $now = time; print map "<$_>\n", map { my $lt = localtime($now - 86400 * $_); join '', unpack '@8 a2 @4 a3 @22 a2', $lt; } 0..13;

-- Randal L. Schwartz, Perl hacker