until ( $mech->success() ) {
    eval {
        $mech->get( $CONFIG{BASE_URL} );
        1;
    } or sleep $CONFIG{DELAY};
}