open(my $mail,"|-","/usr/bin/sendmail -t -i");
print $mail "whatever we need to send as mail\n";