CGI Upload

I've been making a simple upload script using the CGI module, and have got to the point where I can process a file and output it to a given filename, like so:



I then tried turning the $filename that it outputs to into a variable in the form, so the form user can specify the name of the outputted file. First I made an extra input in the form which was the name of the output file wanted. When I put that in like so:



It refuses to save it, cutting out of the program in the line which opens the file. I've double checked and it's not a problem with persmissions. Any ideas? Or reg exps to get the file name perhaps from the full path (when the script is accessed by a browser in Windoze you get the full file path like c:\folder\filename)?

Try this one:

$_=$f{file};
s/\w://;
s/([^\/\\]+)$//;
$_=$1;
s/\.\.+//g;
s/\s+//g;
$filename=$_;
if (!$filename){die('Error! No file')}

open FILE,">$filename";
binmode FILE;
while ($bytes=read($f{file},$buff,2096)) {
print FILE $buff;
}
close FILE;

also you have to insert this line to your form tag:
<form method="post" ... enctype="multipart/form-data">