Select Code to Download

  . . .
  open( my $fh, '>', 'myprogressdata') or die "bad open: $!";
...
  # You'll get control here only after CGI.pm is done
  # processing form and upload data
  . . .

sub myhooksub {
  my( $filename, $buffer, $bytes_read, $fh ) = @_;
...
  printf $fh "Uploading '%s', %d out of %d bytes read\n",
    $filename, $bytes_read, $ENV{CONTENT_LENGTH};
}

  . . . 
  $that_ref_to_his_sub = ...  # copied from your 
...
    print $fh_tempfile $buffer;
  }
  . . .

#!/usr/bin/perl -w
use strict;
...
        print $q->h2('No Data Available'), $!;
    }
    print $q->end_html;