#!/usr/bin/perl
.......
$mail_prog = "/usr/bin/sendmail";
.......
Call Email Subroutine here.
........