brrr...next time try to format the code like this:

open (UPLOAD, "+>$user_name" ) || print_error_page ("Can't open your s
+ubmit directory."); 
flock(UPLOAD, $LOCK_EX) || print_error_page("Can't flock your submit d
+irectory.");
[download]

It's possible that the permissions on the directory you are writing in are not sufficient. It's a good idea to include $! (the system-errormessage) in the string you're printing with print_error_page(). In that case you can tell why the file is not created. (it should be possible to do this...)

HTH

Jouke Visser, Perl 'Adept'