Perl script that upload a file to the server

OK, I recently got this script from someone, it suppossedly uploads a file to a server. I am a web developer, who works with everything but perl and cgi scripting, so please dont think I am totally retarded.
Anyway, I put the script in the cgi - bin, I wrote a test page, it just gives me a 500 error. I am not quite sure how to debug it... Here is the perl script, if you have time to look at it



#!/usr/local/bin/perl



$|++;

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



use CGI;

$query=new CGI;



##     The directory on your server where you want to store the file!!

$upload_dir="/usr/local/etc/httpd/htdocs/gold";

$data_file="/tmp/data.txt";

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);



##     Pad the day and month with a 0

$mday=sprintf("%02d",$mday);

$mon=sprintf("%02d",(++$mon));

$year+=1900;



##     Pad the hour, minutes and with a 0

$hour=sprintf("%02d",(++$hour));

$min=sprintf("%02d",(++$min));

$sec=sprintf("%02d",(++$sec));



##     Create a date time stamp of the format YYMMDDHHMMSS

$datetime=$year.$mon.$mday.$hour.$min.$sec;



##     Process the incoming HTML variables

foreach($query->param){

     $FORM{$_}=$query->param($_);

     ##     Remove all leading and trailing spaces

     $FORM{$_}=~ s/^\s+//;

     $FORM{$_}=~ s/\s+$//;

}



##     Check the mandatory fields. They should not be empty

if (!$FORM{name}){

     print qq{<B>Name cannot be empty.</B><P>

Click on the Back button of your browser to enter a <B>Name</B><P><HR>\n};

     exit;

}



if (!$FORM{email}){

     print qq{<B>Email Id cannot be empty.</B><P>

Click on the Back button of your browser to enter a <B>Email Id</B><P><HR>\n};

     exit;

}



if (!$FORM{upfile}){

     print qq{<B>Please enter a File to Upload.</B><P>

Click on the Back button of your browser to enter a <B>File to Upload</B><P><HR>\n};

     exit;

}



$upfile=$FORM{'upfile'};

$upfile=~ s/\\/\//g;     ##     Replace all \'s with /'s.



##     Extract the upload file's name.

@path=split(/\//,$upfile);

$upload_file= $upload_dir."/".$path[$#path].".$datetime";

         

open(MYFILE,"> $upload_file") || die $!;

binmode MYFILE;

while($bytesread=read($FORM{'upfile'},$data,1024)){

     $size+=$bytesread;

     print MYFILE $data;

}

close(MYFILE);

close($FROM{'upfile'});

         

print qq{<B>$FORM{'upfile'}</B> has been uploaded.<P>

<!-- File saved as $upload_file -->

Size = $size byte(s)<P>

Click on the Back button of your browser to Upload a another file<HR>

};



##     Now write the users details to the data file

open (TXTFILE,">>$data_file")|| die "Cannot open $data_file for appending<P>\n";

## Exclusive lock (for writing)

unless (flock(TXTFILE, 2)) {

     die "Can't get write-lock on $path: $!. Try again later.";

}



##     Store the datetime stamp with the other user info.

push(@col,$datetime);

foreach(sort keys %FORM){

     push(@col,$FORM{$_});

}



##     Store the entry as a :: delimited entry

print TXTFILE (join(':',@col))."\n";

close(TXTFILE);




If u have anything simple that just takes a file and uplaods it, and nothing else at all, whatso-ever. Please help me out'
Thanks

p.s. sorry, I have so little points to give out