#!/usr/bin/perl -w

use CGI qw(:standard);

print "Content-Type: text/html\n\n";

#####################################

$employee=param('employee_name');

$data1=param('certification');

$data2=param('month');

$data3=param('day');

$data4=param('year');

#####################################
# Write File #
#####################################

open (JOE, ">>../../$employee.txt") or die "Can not open file: $!\n";

print JOE "$data1\n";

print JOE "$data2\n";

print JOE "$data3\n";

print JOE "$data4\n";

close (JOE);

print "I was Here!";

#####################################
exit;