Perl application for upload