Select Code to Download

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

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

#!/usr/bin/perl -w

...

=cut