open(MAIL,"|/usr/lib/sendmail -oi -t") or die "Can't open Sendmail : $!\n";
print MAIL << "EOT";
From: fromuser\@fromsite.com
To: destuser\@destsite.com
Subject: Put your subject here
Return-Path: fromuser\@fromsite.com
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1

Put Your message here, $variable can be used..

EOT
close MAIL;