Take a look at time, localtime, and strftime in the POSIX module.

my $now          = time ;
my $one_week_ago = $now - 604_800 ;
# Your chosen method of time/date formatting here...
[download]

_______________
D a m n D i r t y A p e
Home Node | Email