#unbedingt kompletten Pfad angeben!
my $cgih = new CGI;
my $suchpfad = $cgih->param("pfad") || $ENV{HOME};
find( \&wanted, $suchpfad ); # im Homeverzeichnis suchen!
print $cgih->header();