#!/usr/bin/perl -w

use CGI qw(:all) ;

my $today;
my $thismonth;
my $thisyear;


chomp($today = `date +"%-d"`);
chomp($thismonth = `date +"%-m"`);
chomp($thisyear = `date +"%Y"`);

$cgi = CGI->new;

print $cgi->header,$cgi->start_html("$today.$thismonth.$thisyear");
	
print<<HTML;
<table border=1>
<tr>
	<td><button type="button" onclick="dont know what to put here">Yesterday</td>
	<td>$today</td>
	<td>$thismonth</td>
	<td>$thisyear</td>
	<td><button type="button" onclick="dont know what to put here">Tomorrow</td>
	<td><button type="button" onclick="dont know what to put here">Set Title</td>
</tr>


</table>
HTML
print $cgi->end_html;