#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);

$CGI::POST_MAX=1024 * 100;

use POSIX qw(mktime strftime);

@myArgs=("yr","mnth","day","hr","min","sec");

foreach $myArg (@myArgs) {
	$$myArg=param($myArg) ? param($myArg) : 0;
	$$myArg =~ s/[^0-9]*//g;
}

$yr=$yr - 1900;
$mnth=$mnth - 1;

print header,
        "<head><title><title><head>\n<body style=\"margin:0; padding:0;\">\n";

print("<center><b>result: ");
print(mktime(${sec},${min},${hr},${day},${mnth},${yr})."\n");
print("<b><center><br/><br/>\n");

exit(0);

__END__