eval { foo() } ;
if ( $@ ) {
  warn $@;
  bar();
}
Undefined subroutine &main::foo called at 561955.pl line 2.
Undefined subroutine &main::bar called at 561955.pl line 5.