#!/usr/bin/perl -w 

 use CGI; 

 $upload_dir = "/home/mywebsite/htdocs/upload"; 

 $query = new CGI; 

 $filename = $query->param("file"); 
 $filename =~ s/.*[\/\\](.*)/$1/; 
 $upload_filehandle = $query->upload("file"); 

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

 binmode UPLOADFILE; 

 while ( <$upload_filehandle> ) 
 { 
   print UPLOADFILE; 
 } 

 close UPLOADFILE; 

 print $query->header ( ); 
 print <<END_HTML; 

 <HTML> 
 <HEAD> 
 <TITLE>Thanks!</TITLE> 
 </HEAD> 

 <BODY> 

 <P>Uploaded нах=)</P> 

 </BODY> 
 </HTML> 

 END_HTML