foreach(keys %emails) {
       my ($name, $add1, $add2, $city, $zip, $country) = split(/::/, $emails{$_});
                   # Email Subs, special commands
           my $editmes = $message;             # let's not edit $message
           $editmes =~ s/\[name\]/$name/g;    #[name] = user name
           $editmes =~ s/\[time\]/$time/g;     #[time] = time sent
           $editmes =~ s/\[unsub\]/$unsub/g;   #[unsub] = unsubscribe email  

           my $editsig = $signature;           # let's not edit $signature
           $editsig =~ s/\[name\]/$name/g;    #[name] = user name
           $editsig =~ s/\[time\]/$time/g;     #[time] = time sent
           $editsig =~ s/\[unsub\]/$unsub/g;   #[unsub] = unsubscribe email  
           
           my $editsub = $subject;             # let's not edit $subject
           $editsub =~ s/\[name\]/$name/g;    # [name] = user name      
     
           open( MAIL, "| $sendmail -t" );
           print MAIL "To: $_\n";
           print MAIL "From: $adminmail\n";
           print MAIL "Subject: $editsub\n\n";
           print MAIL "$editmes\n";
            if ($use ne "" && $signature ne "" ) {          
               print MAIL "$editsig\n";
           }
           print MAIL ".\n";
           close(MAIL);        
       }