Select Code to Download

use Mail::IMAPClient;

...
my $zone = '-0400';  # EDT, season to taste, defaults to '+0000' (GMT0
+)

my $date = Mail::IMAPClient->Rfc2060_datetime($timestamp_n_daysago, $z
+one);

use strict;
use warnings;
...

$date = Mail::IMAPClient->Rfc2060_datetime($timestamp_n_daysago, $zone
+);
print "date_time $num_days days ago: $date\n";

-> date && ./test
Wed Sep 24 16:01:32 EDT 2008
zone_correction: -14400
date_time now: 24-Sep-2008 16:01:32 -0400
date_time 5 days ago: 19-Sep-2008 16:01:32 -0400