$|++; # put the args to enscript in an array ... my @enscript_args = ( "--no-header ", "--escapes ", "--font=AvantGarde-Book24 ", "--no-job-header ", "--quiet ", "--output=- " ); # here is where gnu enscript is on this system ... my $enscript = "/usr/bin/enscript"; # wrap the opening of enscript in an eval block, # so we can catch problems and die gracefully ... eval { open2 (*FROMENSCRIPT, *TOENSCRIPT, "$enscript @enscript_args"); }; if ( defined ($@) && $@ =~ /^open2/) { warn "$me: open2 failed: $!\n$@\n"; die }; print TOENSCRIPT (@burstpage); my @burstpage_ps = ; close(TOENSCRIPT); close(FROMENSCRIPT);