eval {
   ...
}
die if $@;

##</code><code>##

perldoc -f die

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.