Select Code to Download

 $q = CGI->new();
 $q->upload_hook(\&hook,$data);
...
        my ($filename, $buffer, $bytes_read, $data) = @_;
        print  "Read $bytes_read bytes of $filename\n";         
 }

  CGI::upload_hook(\&hook,$data);