my $pr_cmd = "| lpr -P $self->{'printer'}{$OSNAME}";

##</code><code>##

$pr_cmd=~/^(.*)$/;
$pr_cmd=$1;

##</code><code>##

open PRINTER, $pr_cmd
          or warn
          "Can't open printer connection to lp: $!";