open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
  || die "c\Cannot for mail: $!";

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

close(SENDMAIL);