{
    foreach my $account ( keys %Accounts )
    {
	next unless ( exists $Accounts{$account}{Visible} 
	     and $Accounts{$account}{Visible} eq "internal" );

        $OUT .= "$account\n";
        $OUT .= "$account\@$DomainName\n";

	foreach my $domain ( keys %Domains )
	{
	    next unless $Domains{$domain}{type} eq "domain";
	    $OUT .= "$account\@$domain\n";
	}
    }
}