Help for this page

Select Code to Download

Select or download this

my $MailText = '';
open MAILOUT, '>', \$MailText or die "open in-memory output: $!";
...
# ...
close MAILOUT; select STDOUT;
# $MailText now contains "foo\nbar\n"; send it however you want