use WWW::Mechanize; if ($mech->success()) { ... }