#MAIN HTML start#

Please select a file to upload:

'; #MAIN HTML end# here's my action file... ######FIRST ATTEMPT########################## ##HEADER## $dir = "tempfolder"; $file = param('file'); $file=~m/^.*(\\|\/)(.*)/; $name = $2; open(LOCAL, ">$dir/$name") or die $!; while(<$name>) { print LOCAL $_; } print 'Succeeded in your upload'; ######END########################### ######SECOND PROG.########################### ##HEADER## $dir = "tempfolder"; $file = param('file'); if ($file =~ /.*[\/\\](.*)/) { $out_file = $1; } else { $out_file = $file; } $counter = 0; while (-e "$dir/$out_file") { $counter++; $out_file =~ s/^(.+)\.(.+)$/$1$counter\.$2/; } print "$file
\n"; open (OFILE, "> $dir/$out_file"); while ($bytesread = read ($file, $buffer, 1024)) { print OFILE $buffer; } close $file; close OFILE; print 'Succeeded in your upload'; ######END###########################