To expand a bit on what cephas and tilly aluded to, here's an example:

eval {
  foo();
};
print "caught '$@'\n" if $@;

sub foo {
   # "throw" an error
   die "oops!";
}
[download]