for (;;) { eval { $browser->get('http://www.example.org/?node=whatever'); }; last if !$@; print "WARNING: $@"; $browser->reload(); } #### while (!eval { $browser->get('http://www.example.org/?node=whatever'); }) { print "WARNING: $@"; $browser->reload(); }