my $req = HTTP::Request->new(GET => "http://www.perlmonks.com");
my $res = $ua->request($req);
if ($res->is_success) {
}