Help for this page
open (MAIL, "| /usr/sbin/sendmail -t") || die "no mail for you!";
open (CPROG, "| /path/to/your/program") || die;