{
    $OUT .= "root\n";
    $OUT .= "root\@$DomainName\n";

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

    foreach my $host ( keys %Hosts )
    {
        next unless $Hosts{$host}{type} eq "host";
        $OUT .= "root\@$host\n";
    }
}
