use Carp;
BEGIN { $SIG{__DIE__} = \&Carp::confess; }
use WWW::Mechanize;