#!/usr/bin/perl -Tw
use strict;
use CGI qw(:standard);
print "Content-Type: text/html\n\n";
print '';
#####################################
my $employee=param('employee_name');
my $certification=param('certification');
my $month=param('month');
my @month="";
my $day=param('day');
my $year=param('year');
my $key="";
my $i="";
my $t="";
my @data="";
my $items;
my $lines;
my $number;
my @mon = qw (January Feburary March April May June July August September October November December);
#####################################
# Read File #
#####################################
print "Employees name is $employee
";
open(JOE, ";
close (JOE);
#####################################
# Print File #
#####################################
$lines=scalar@data/4;
for ($i=1; $i<=$lines; $i++) {
$certification = shift(@data);
print "Certification is $certification on ";
$number = shift (@data);
$month = $mon [$number-1];
print "$month";
$day = shift (@data);
print " $day";
$year = shift(@data);
print " $year";
print "
";
}
#####################################
print '';
print '