Perl -- sent email

1) sent email

($message = $message) =~ s/<[^]*>//gs;  ##remove Html text 为了防止被放到spam文件夹

@rudewords = qw(rudeword1 rudeword2);
$rude = "no";
foreach $word (@rudewords)
{
  if($message =~ m/$word/gi or $subject =~ m/$word/gi)
  {
     $rude = "yes";
  }
}

unless ($rude eq "yes"){
   open(MAIL, '| /usr/lib/sendmail -t -oi'); ##sometimes not use lib and use sbin
   print MAIL <
   To: you\@yourserver.com
   From: them\@theirserver.com
   Subject: $subject

   $message

   EOF
   close MAIL;

   print "Thanks for your email!";
}