You are closing the file in the foreach loop.

Apart from that there are a few other things that could be improved. Maybe like this:

    #!/usr/bin/perl -w

    use strict;

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

    get_text();

    close DOM_WORK;

    sub get_text {

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

        get_domkey();
    }
[download]

--
John.