print SENDMAIL <<"EOF";

[blah]

EOF

##</code><code>##

print SENDMAIL qq!

[blech]

!;

close(SENDMAIL) or warn "sendmail didn't close nicely";