sub print_koords {
    my $p = HTML::Parser->new ( api_version => 3,
       start_h => [     # Handler fuer Start-Tags
           \&parse_start, 'tag, attr',  # Uebergib Tag und Attribute
       ],
    );
    return $p->parse_file(*DATA);
} #print_koords