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

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

##</code><code>##

my $query = CGI->new(\&hook);