#!/usr/local/bin/perl -wT

use strict;
use CGI;

my $q = CGI->new();

print $q->header();

# Using CGI is even easier than doing it yourself,
# so PLEASE(!) use it!
$studentid = $q->param('studentid');
$CSC = $q->param('CSC');
chomp($CSC);  
$assignment = $q->param('assignment');
$file = $q->param('file');