open(PRINTER, "| lpr -Plp1")    || die "can't run lpr: $!";
  print PRINTER "stuff\n";
  close(PRINTER)                  || die "can't close lpr: $!";