eval { $ref->$method() };  # updated: forgot the $method :-(
die $@ if $@ and $@!~/^Undefined subroutine/;