#! /usr/bin/perl

$email_message="test de Pierre";
$email_subject="test4";
$recipient="5555555555\@msg.telus.com";
$from = "nepasrepondre\@chirotest.ca";

open( my $mail, "mailx -q /usr/pierre/bin/smstext.txt -r $from -s $email_subject $recipient" );
say $mail $email_message;
close $mail;

END {
my $redirect = "/cgi-bin/chiro/menuprincipal.pl";

print "Location:$redirect\n\n";    
}