Select Code to Download

my $coderef = \&some_subroutine;

...
    #...do something with @_...
    return ($value1, $value2);
}

my ($foo,$bar) = some_subroutine('arg1');