{ use esmith::DomainsDB; my $ddb = esmith::DomainsDB->open_ro or die "Couldn't open DomainsDB\n"; my @rcpt_hosts = ( "$SystemName.$DomainName" ); foreach my $domain ( $ddb->get_all_by_prop( type => "domain" ) ) { push @rcpt_hosts, $domain->key; } $OUT = join "\n", @rcpt_hosts; }