Select Code to Download

#!/usr/bin/perl
my $mailprog = '/usr/lib/sendmail';
...
print MAIL "From: $RECP\n";
print MAIL "$Here_is_where_the_body_of_your_message_goes";
close MAIL;

#!/usr/bin/perl
use MIME::QuotedPrint;
...
$boundary--
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";