$q = CGI->new(\&hook [,$data [,$use_tempfile]]);

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