As the docs show, try something like:

foo: bar { ::myroutine($item{bar}) } # this may fail, returning undef
  | <error: ... your message here >
[download]

-- Randal L. Schwartz, Perl hacker