Help for this page
$ENV{'PDPRINTER'} = $foo;
#------------- perl -e 's=$;$/=$\;W=i;$\=$/;s;;XYW\\U$"\;\);sig,$_^=$[x5,print;'