#begin code#
my $mail_prog = "/usr/sbin/sendmail";
my $to = $txtnumber;
my $reply_to = $txtnumber;
my $from = $txtnumber;

open (MAIL, "|$mail_prog -t -n -oi");
print MAIL "To: $to <$to>\n";
print MAIL "Reply-to: $reply_to <$reply_to>\n";
print MAIL "From: $from <$from>\n";
print MAIL "Subject: $subject\n";
print MAIL "\n\n";
print MAIL "$message\n";
close(MAIL);
#end code#