my $head = $mail->head();

  if (!$head->get('From') || !$head->get('To') ||
      $head->get('From') eq "<>" || $head->get('To') eq "<>" ) {goto NEXT;}

##</code><code>##

  my $head = $mail->head();

  if (!$head->get('From') || !$head->get('To') ||
      $head->get('From') =~ /^<>$/ || $head->get('To') =~ /^<>$/) {goto NEXT;}