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