retry( sub { $browser->get( $link->url() ); } ); #### sub retry { my $sub_ref = shift; for ( 1 .. $conf->max_tries() ) { eval { $sub_ref->(); }; last unless $@; warn "Failed try $_, retrying. Error: $@\n" if $conf->debug(); } if ($@) { die "failed after " . $conf->max_tries() . " tries: $@\n" } }