if (!defined($pname) || $pname eq '') {
    croak 'We want something real in $pname. Not undef or the empty string';
}