or download this
D:\Temp>perl -MO=Deparse,p -e "if (not defined($pname) && pname ne ''
+&& defined($policy_ur) && $policy_ur ne '' && not defined($odate) &&
+$odate ne ''){}"
if (not defined $pname && $pname ne '' && defined $policy_ur && $polic
+y_ur ne ''
...
();
}
-e syntax OK