$ perldoc HTTP::Response

##</code><code>##

my $res = $mech->mirror (...);
if ($res->is_success) {
    my $content = $res->decoded_content;
    # Do something with content
    }
else {
    warn "Oops: ", $res->status_line;
    }