open (MAIL, "|/user/lib/sendmail -t") || Error ("Unable to run mail program ");

print MAIL <<EOMH;
To: $to
CC: $cc
From: $from

Name: $name

############more formating code here#########


EOMH

        Close (MAIL);