#! /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 $ema +il_subject $recipient" ); say $mail $email_message; close $mail; END { my $redirect = "/cgi-bin/chiro/menuprincipal.pl"; print "Location:$redirect\n\n"; }
In reply to Re^4: catch die from say
by PierreForget
in thread catch die from say
by PierreForget
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |