You should keep track of all the print jobs that have been since run and tally up all those $0.75's it's saved. This is a very good example of the real world application of Perl - I'd be interested in what the development time was...