Select Code to Download

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

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