HTTP形式の日時取得

　HTTP::DateでHTTPで使用する形式の日時を取得できます。

use HTTP::Date;

my $date = time2str();
print $date, "\n";

my $date2 = time2str(time + 24 * 60 * 60);
print $date2, "\n";