Type path of document to upload or click "Browse" to navigate to document:
####
#!/usr/local/bin/perl -w
# 2010c.pl
use CGI;
require ("cgi-lib.pl");
my $q = CGI->new();
print $q->header();
$studentid = $q->param('studentid');
$CSC = $q->param('CSC');
chomp($CSC);
$assignment = $q->param('assignment');
$file = $q->param('file');
$HOME = (getpwnam("wfp51916"))[7];
$filename = "$HOME/classes/$CSC/$studentid/$assignment/outputfile.txt";
open( OUTFILE, ">>$filename" ) or die ( "no go miss ");
print OUTFILE "$studentid\n";
close( OUTFILE );
print "$studentid ";
print "$CSC ";
print "$assignment ";
#below is the variable I cannot get to print
print "$file ";