Help for this page
my $pr_cmd = "| lpr -P $self->{'printer'}{$OSNAME}";
$pr_cmd=~/^(.*)$/; $pr_cmd=$1;
open PRINTER, $pr_cmd or warn "Can't open printer connection to lp: $!";