#!/usr/bin/perl
use CGI;
my $self = CGI::Util::expire_calc('','');
my $selfa = CGI::Util::expires('now','');
my $self2 = CGI::Util::expire_calc('+60d','');
my $selfb = CGI::Util::expires('+60d','');
print "Content-type: text/html\n\n";
print "Current: $self
$selfa
+60 days: $self2
$selfb
\n";