my $p = prototype 'wantarray'; print defined $p ? $p : "(not overrideable)";