>perl -w -e "print 1 if !defined($pname) && $pname ne ''"
Use of uninitialized value in string ne at -e line 1.

##</code><code>##

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