lp|HP Deskjet 540:\
 :lo=/var/spool/output/lpd/lp-lock:\ 
 :lp=/dev/lpt0:\
 :lf=/var/log/lpd-errs:\
 :of=/var/spool/ps-filter:\
 :sd=/var/spool/output/lpd:\
 :sh:

        #Inicio
        #!/usr/bin/perl
        # Filter which detects postscript files and appends cr to lines of text.
        # $Id: ps-filter,v 1.3 1995/02/14 01:05:59 brian Exp $
       
        $cat="/bin/cat";
        $gs="/usr/local/bin/gs";
        
        $_ = ;
        if (/^%!/)
            {
            # Pipe the file as-is to the ghostscript interpreter.
            # Postscript files have their pages reversed because my
            # DeskJet 540 stacks them in reverse order if I don't.
            $old_dir=`pwd`;
            $tmp_dir = "/tmp/lp-gs.$$";
            mkdir($tmp_dir,0700);
            chdir $tmp_dir;
            open(PIPE, "|$gs -q -sDEVICE=djet500 -sOutputFile=%03d.lj -")
                || die "$0: can't run ghostscript: $!";
            print PIPE $_;
            while ()
            {
                print PIPE $_;
            }
            close PIPE;
            @pages=reverse(sort(<*.lj>));
            system $cat, @pages;
            unlink @pages;
            chdir $old_dir;
            rmdir $tmp_dir;
        }
        elsif (&isprint() && !/\r\n$/)
        {
            # Send the text to the printer with trailing lf converted to crlf.
            s/([^\r])?\n$/\1\r\n/;
            print;
            while ()
            {
                s/([^\r])?\n$/\1\r\n/;
                print;
            }
        }
        else
        {
            print;
            while ()
            {
                print;
            }
        }
        sub isprint
        {
            ($c) = split(//,$_);
            return ($c =~ /[\s\n]/) || (ord($c) >= 32 && ord($c) < 127);
        }
#Fim