Perl CGI script that uploads a file, using a callback method to monitor how much data has been transfered.