#!/usr/bin/perl -w

    use strict;

    open DOM_WORK, '>/usr/spool/lpd/dom/dom.work' or die "Error message here\n";

    get_text();

    close DOM_WORK;

    sub get_text {

        while (<>) {
            tr/\x0c-\x0d//d;
            print DOM_WORK $_;
        }

        get_domkey();
    }