my $p = HTML::TokeParser->new('einzelergebnis*.html') or die "Can't open: $!";