I just noticed that the following statement in this post has an unbalanced double-quote:

open ( my $UPLOADFILE, ">", $upload_dir/$fileto" ) or die "$!";
                            ^                  ^
                            |                  |
                            +------------------+
[download]

A bit late, but...