example tool to upload large files with Perl and LWP