my $q = CGI->new();
$q->upload_hook(\&hook,$data); # hier meckert strict wegen $data