sub test(){
  my @b;
  
  foreach(1..10){
    $b[$_]->{send_to} = "gustl1und1\@online.de";
    $b[$_]->{username} = "Gustl";  
  }   
  send_emails(\@b);
           
}

sub send_emails{
  my @mail = @{$_[0]};
  my $type = $_[1];
  
  my $mailprog = '/usr/lib/sendmail';                   
   my $pid = undef;
  foreach(@mail){
    
    if (defined($pid = fork)) {
      if ($pid) { #Eltern
        #print "Eltern: Kind $i ($pid) gestartet \n";
        } else {    #Kind
           my $mailfrom = $Glob::mailfrom_support;
      my $name     = "TRAIN your programmer Support";
      my $subject  = "TRAIN your programmer - Test";
      my $body     = "TEXTE TEXT TEXT TEXT!";
    
      open (MAIL, "|$mailprog $_->{send_to}") || die "Cant open $mailprog!\n";
      print MAIL ("To: $_->{send_to}\n");
      print MAIL ("From: $name <$mailfrom>;\n");
      print MAIL ("Subject: $subject\n\n");
      print MAIL ("$body");
      close (MAIL);
          last;
       }
    }  
  }
}