Script detail 

foreach my $a ( $dom->findnodes(q{//p/a}) ) {
    if ($a->textContent eq 'kml') {
        $kml_href = $a->getAttribute('href');
    }
}