open (MAIL, "| /usr/sbin/sendmail -t") || die "no mail for you!";

##</code><code>##

open (CPROG, "| /path/to/your/program") || die;