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