use strict;
use POSIX;
use IPC::Shareable;
use Net::DNS;
use Data::Dumper;

$|=1;

my $glue = 'data';
my %options = (
    create    => 'yes',
    destroy   => 'yes',
);

my %mxs;
my $knot = tie %mxs, 'IPC::Shareable', $glue, { %options } or
    die "server: tie failed\n";

my @urls = <>; 

my %hash;
for (@urls) {
    chomp;
    my ($username, $domain) = split (/\@/);
    push (@{$hash{$domain}}, $_);
};

my $PREFORK  = 25;        # number of children to maintain

my @doms = keys %hash;