#!/usr/local/bin/perl

$sendmail = '/usr/sbin/sendmail';

open(SENDMAIL,"| $sendmail -t -i");

print SENDMAIL <<'END';
From: from@foo.bar.com
To: to@hoge.fuga.com
Cc: aa@bb.cc,dd@ee.ff
Subject: test

Hello
This is test
END

close(SENDMAIL);