use strict;
use WWW::Mechanize;

my $mech = WWW::Mechanize->new;

$mech->get("http://www.perlmonks.org", ':content_file' => "perlmonks.h
+tml");
[download]

There - one get only. Short enough?

How to add error handling is covered in the documentation.