There are numerous fancy exception modules on CPAN of course, but for a very simple solution, I have used this on occasion:

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