#!/usr/bin/perl -w

 use CGI;
 use CGI::Carp qw(fatalsToBrowser);
 $upload_dir = "/foo/bar/upload";

 $query = new CGI;

 $filename = $query->param("somexmlfile");
 #pass_word = $query->param("password"); will add later
 $filename =~ s/.*[\/\\](.*)/$1/;
 $upload_filehandle = $query->upload("somexmlfile");

 #cp here, probably will be mv
 exec "cp ../foo/bar/existing.xml existing.xml.BAK";
 
 open UPLOADFILE, ">$upload_dir/$filename";

 binmode UPLOADFILE;

 while(<$upload_filehandle>){
   print UPLOADFILE;
 }

 close UPLOADFILE;

 print $query->header ( );
 print <<END_HTML
 
 <html>
 <h2>File Received</h2>
 
 ######################################
 #Can I build another HTML/CGI from from here?
 ######################################
 </html>

END_HTML