my @recipients;
my $to;
foreach my $line (@mail)
{
  if ($line=~/^To:/)
  {
   $to = $';
   $File::Log::log->msg(4, "To Adressen: $to\n");
  }

}
@recipients=split(/,/, $to);