#!/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