Boy they are fast around here ... Here's a starting point of a possible solution right from the Camel book

#!/usr/bin/perl
use Getopt::Std;
getopts( 'd:' );

if( $opt_d ) { $no_seconds_ago = $opt_d * 60 * 60 *24; }

( $sec, $min, $hr, $mday, $mon, $year, $wday, $yday, $isdst ) = localt
+ime(time-$no_seconds_ago);
print<\<EOT
sec = $sec
min = $min
hr  = $hr
mday = $mday
mon = $mon
yr = $year 
wday = $wday 
yday = $yday 
isdst = $isdst
EOT
[download]