Q:\repos\WWW-Mechanize-FireFox>perl -Ilib -MWWW::Mechanize::Firefox::DSL -wle "update_html(q{Test no Test}); print content; print $_->{innerHTML} for selector q{*[href*='/example.co']}" Test no Test Test ##

##

#!perl -w
use WWW::Mechanize::Firefox::DSL;

update_html(q{Testno Test});

highlight_node( selector(q{*[href*='/example.com']}));