It might be worth having a look at my CGI::Upload module - This module provides methods to securely handle return uploaded files and return pertinent information such as uploaded fule name and file types as returned by both file extension and file MIME types (see the link to File::MMagic elsewhere in this thread).

The sort of "rule based" upload of files which you seek is something which I am working on for a new module called CGI::Upload::Rule, fashioned very much after the File::Find::Rule module.

 

perl -e 'print+unpack("N",pack("B32","00000000000000000000000111101001")),"\n"'