my $input_filehandle = upload( 'UPLOADFILE' );

sysopen(IN, $input_filehandle, O_RDONLY) || Error ('open','file');

sub Error {
print "The server can't $_[0] the $_[1]: $! \n";
exit;
	  }