Select Code to Download

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

close(SENDMAIL);

my $text = function(arguments);

...
EOF

close(SENDMAIL);