while(1) { 
    eval { 
        do_something_that_may_die();
    };
    last unless $@;
    print "Something blew up: $@\nRetrying...";
}