use strict;
use warnings;

sub get_text{  
  my $output_file=shift;                           
  open my $out_fh,">".$output_file or die "Failed to open $output_file because $!";
  while (<>) { 
    tr/\x0c-\x0d//d;
    print $out_fh $_;
  }                                    
}          

get_text('/usr/spool/lpd/dom/dom.work');                                   
get_domkey();