$courrielclient="5555555555\msg.telus.com";
$textecourriel = "Ceci est un test de message texte (SMS)";
$sujet = "Test de rappel de rendez-vous $nomfournisseurcellulaire";
$from = "nepasrepondre\@testsms.ca";


open( my $mail, "| mailx -r $from -s $sujet $courrielclient");

say ("$mail $textecourriel");
close $mail;

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

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