The main part of the solution will not be possible in Perl. You will need to use some Javascript library to manage the upload and display the progress bar. Google comes up with a random Stackoverflow answer.