use English qw(-no_match_vars);
eval { die 'A horrible death' };
print "Something died\n" if $EVAL_ERROR;

##</code><code>##

confess 'Some error happened because ' . $obj->foo . ' blew up';

##</code><code>##

sub mumble_path { join ", " => split '/' => (shift)>get_path }