D:\Temp>perl -c -e "if (not defined($pname) && $pname ne '' && defined($policy_ur) && $policy_ur ne '' && not defined($odate) && $odate ne ''){}"
-e syntax OK