sub sendmail
{
  my($from,$recipients,$list,$sub,$msg,@timedown) = @_;
  open(MAIL, "|/usr/lib/sendmail -t");
  my $old=select(MAIL) ;
  print<<"EOF" ;
To: $recipients
CC: $list
From:$from
Subject: $sub
Body:

   @timedown
   $msg
EOF

close(MAIL);
select($old);
}