#MAIN HTML start#
'; #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