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;
 }