How about something like the below? Simplest way I can think of to change the 'To' address on the email to keep the printer happy.
#!/usr/bin/perl
use strict;
# Real email address for the printer
my $email = '
[email protected]';
my $sm;
open($sm, "|/usr/sbin/sendmail...