open PRINTER, ">//SERVER/PRINTER";
while(<>){
  print PRINTER $_;
}