$ perl -Mojo -e " $dom = x(q{<base>}); $dom->at(q{base})->attr(qw{href http://example.com/?&}); print $dom "
<base href="http://example.com/?&amp;">