eval {
  die "let's blow this joint!";
};
warn "ack - $@" if $@;

__output__

ack - let's blow this joint! at - line 2.