#! /usr/bin/perl

$email_message="test de Pierre";
$email_file ="/httpd/bureau.testchiro.ca/temp/sms";
$email_subject="test9";
$recipient="5555555555\@msg.telus.com";
$from = "nepasrepondre\@testchiro.ca";

system ("mailx -q $email_file -r $from -s $email_subject $recipient");

END {
my $redirect = "http://192.168.0.10/index.html";

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