#!/usr/bin/perl

open(HD,"top.html");
print "Content-type:Text/html\n\n";
print while (<HD>);
close(HD);

use CGI qw(param);
my $year = param('year');
my $month = param('month')-1;
my $day = param('day');
my $hour = param('hour');
my $min = param('min');
my $sec = param('sec');

use Time::Local;
my $time = timegm($sec,$min,$hour,$day,$month,$year);

print qq~The unix time is: <b>$time</b> &nbsp;<br><br>The CountDown code is:<br><br><font face=Courier>&lt;COUNTDOWN=$time&gt;</font>~;

open(FO,"bottom.html");
print while (<FO>);
close(FO);