#!/usr/local/bin/perl -w
use strict;
use diagnostics;
use CGI qw(:standard);
print header();

require schedule;


my $s_month;
my $s_day = 2 ;
my $s_year = 2000;

print "\$smonth is $s_month ,\$sday is $s_day, \$syear is $s_year\n";


################### PM FILE #########################

#schedule

$s_month = 'Jun'; 
$s_day = '21'; 
$s_year ='2004'; 

$week_1 = 'TEAM 1'; 
$week_2 = 'TEAM 2'; 
$week_3 = 'TEAM 3'; 
$week_4 = 'TEAM 4';