print SENDMAIL << "EOF";
From: me\@abc.com
To: you\@xyz.com
EOF
print SENDMAIL fuction(arguments);

close(SENDMAIL);

##</code><code>##

my $text = function(arguments);

print SENDMAIL << "EOF";
From: me\@abc.com
To: you\@xyz.com
$text
EOF

close(SENDMAIL);