open(PRN, "|lp") or
    &dienice("Can't print: $!\n");
print PRN "hello";