GET_START: eval { $mech->get( $CONFIG{BASE_URL} ); }; if ($@) { sleep $CONFIG{DELAY}; goto GET_START; }