#!perl -l

my $code = sub { wantarray ? 1 : 0 };

sub wrapper {
    # ... later

    return wantarray ? &$code : scalar &$code;
}

print wrapper;         # 1
print scalar wrapper;  # 0