my $lanip = $server->{LanIP};
die "Value Error: not dotted quad notation->($lanip)" unless $lanip =~ /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})/;
my $lanip = $1; # now this house is clean