{
    use esmith::util;

    my @prefixes = esmith::util::computeAllLocalNetworkPrefixes($LocalIP,
                                                                $LocalNetmask);

    require esmith::NetworksDB;
    my $n = esmith::NetworksDB->open;
    foreach my $network ($n->get_all_by_prop(type => 'network'))
    {
        push(@prefixes,
            esmith::util::computeAllLocalNetworkPrefixes(
                $network->key, $network->prop('Mask')));
    }

    foreach my $prefix ( @prefixes )
    {
        my $dot = ( $prefix =~ /\d+\.\d+\.\d+\.\d+/ ) ? '' : '.';

        $OUT .= $prefix . $dot . "\n";
    }
    $OUT .= "127.0.0.1";
}
