#!/usr/bin/perl -w 

#Using Perl Error Handling Exceptions  
#(Output errors before executing the script) 

qw(:standard); 

use CGI::Carp qw(fatalsToBrowser); 

#end error handling 

#print "Content-type: text/html\n\n"; 

# process POST information 
read(stdin, $input_line, $ENV{CONTENT_LENGTH}); 
$input_line =~ tr/+/ /; 
@fields = split(/\&/,$input_line); 
foreach $i (0 .. $#fields) { 
    ($name,$value) = split(/=/,$fields[$i]); 
    $name =~ s/%(..)/pack("c",hex($1))/ge; 
    $value =~ s/%(..)/pack("c",hex($1))/ge; 
    $input{$name} = $value; 
} 

#USE >> FOR APPEND,  > TO WRITE,  AND < TO READ
open (MYFILE, ">>data.txt") || die "\n Cannot open \n";

print MYFILE "$input{'empID'}\t";
print MYFILE "$input{'firstname'}\t";
print MYFILE "$input{'lastname'}\t";
#Create a timestamp and write it to the file

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon++;
print MYFILE "$mon/$mday/$year\n";
close MYFILE;