use strict;
use warnings;

use Mail::IMAPClient;

my $now = time();
my $zone = '-0400';  # EDT, season to taste, defaults to '+0000' (GMT0)
my $zone_correction = 3600 * $zone / 100;   # timezone correction in secs
print "zone_correction: $zone_correction\n";
$now += $zone_correction;

my $date = Mail::IMAPClient->Rfc2060_datetime($now, $zone);
print "date_time now: $date\n";

my $num_days = 5;  # season to taste
my $timestamp_n_daysago = $now - $num_days * 86400;  #86400 secs/day

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