Select Code to Download

    my (@r, $r);

...
    # ... later

    return wantarray ? @r : $r;

    wantarray ? @r : $r = &$code;