my $perl = WWW::Mechanize->new; $perl->get($something_interesting_from_the_net); $perl->click;