$q = CGI->new();
 $q->upload_hook(\&hook,$data);

 sub hook
 {
        my ($filename, $buffer, $bytes_read, $data) = @_;
        print  "Read $bytes_read bytes of $filename\n";         
 }