#!/usr/local/bin/perl -w
use strict;
use diagnostics;
use CGI qw(:standard);
use Time::Local 'timelocal_nocheck';


my $DatStr1 =  localtime timelocal_nocheck 0,0,0,9,4,2003;
my @text_dat1 = split( / /, $DatStr1);

my $DatStr2 =  localtime timelocal_nocheck 0,0,0,11,4,2003;
my @text_dat2 = split( / /, $DatStr2);
print header();
print "@text_dat1[0] @text_dat1[1] @text_dat1[2] @text_dat1[3] @text_dat1[4]<br>\n";
print $DatStr1."<br><br>\n";

print "@text_dat2[0] @text_dat2[1] @text_dat2[2] @text_dat2[3] @text_dat2[4]<br>\n";
print $DatStr2."<br>\n";