my $success=0; my $tries=0; while (! $success and $tries++ < 3) { eval { $m2->get($fullurl); }; if (! $@) { $success = 1; } else { print STDERR "".cur_gmt()."Error: Retry Attempt $tries of 3\n"; print LOG "".cur_gmt()."Error: Retry Attempt $tries of 3\n"; sleep (2); } } die "aborted Web Site Error: $!" unless $success; #ultimate failure!! PROGRAM ABORT !!!!