emacs/snippets/perl-mode/eval

# -*- mode: snippet -*-
# name: eval { ... } if ($@) { ... }
# key: eval
# --
eval {
    ${1:# do something risky...}
};
if (\$@) {
    ${2:# handle failure...}
}