Thanks!

##

#!/usr/bin/perl -w

use CGI;

$upload_dir = "http://myname.tripod.com/mine";

$query = new CGI;

$filename = $query->param("protein");

$filename =~ s/.*[\/\\](.*)/$1/;

$upload_filehandle = $query->upload("protein");

open UPLOADFILE, ">$upload_dir/$filename";

binmode UPLOADFILE;

close UPLOADFILE;

print $query->header ( );
print <

Thanks!
 



Thanks for uploading your file!




END_HTML

##

##

 Your script produced this error: 
Undefined subroutine CGI::upload at CGI.pm line 349.

Welcome to the Online Server