Select Code to Download

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

my $fh = $q->upload( "tabela" );