use HTTP::Date; my $date = time2str(); print $date, "\n"; my $date2 = time2str(time + 24 * 60 * 60); print $date2, "\n";