use Fcntl qw(LOCK_EX);
open DOM_WORK, '> /usr/spool/lpd/dom/dom.work' or die $!;
LOCK: {
    flock DOM_WORK, LOCK_EX or die $!;
}
for (<>) {
    tr/\x0c-\x0d//d;
    print DOM_WORK or die $!;
}
close DOM_WORK or die $!;
&get_domkey; # whatever that is