`print`

print has the user interface in it, so it's more verbose

Also it needs to convert files from one format to another

        #!/usr/bin/perl
        #
        # print
        #
        # tool for spooling files
        #
        # Idea: Ready-to-print files are deposited in the spool directory
        # These must be in the right format.
        # The job of 'print' is to convert the file to the right format
        # and then copy it to the spool directory
        #
        use strict;
        use File::Copy;
        use Getopt::Std;
        use lib '/home/mjd/lib';
        use MJD::Print;
        use vars qw($opt_t $opt_n $opt_v $opt_s $opt_b);
        umask 077;
        my @TMPFILES = ();

@TMPFILES is an array of files that should be cleaned up on exit:

        END {
          unlink @TMPFILES;
          rmdir $tempdir;
        }