Select Code to Download

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

$dispatch{$method}->() if $dispatch{$method};