my  $fh = new FileHandle "/usr/bin/sendmail";
    if (defined $fh) {
        print $fh "$message\n";
        $fh->close;
    }