url     urlActive
url2    url
pos     enumFromFile("POS")
orth    text("en")
translation  text("pt")
domain  text(@xml:lang)

%%

use LWP::Simple;

addType(
  urlActive =>
    { markit => sub{ $c = markAsErr($c) unless (LWP::Simple::head($c));
                     toxml()}, } );