Select Code to Download

sub apply (&@)
{
...
    &$action foreach my @values = @_;
    wantarray ? @values : $values[-1];
}