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