open (UPLOAD, "+>$user_name" ) || print_error_page ("Can't open your submit directory.<br>$!"); 
flock(UPLOAD, $LOCK_EX) || print_error_page("Can't flock your submit directory.<br>$!");