Select Code to Download

  sub dispatch {
    my($self, $code) = (shift, shift);
...
    die if $@;
    return $result;
  }