my(@ip_pieces) = split /\./, $seed_ip; my($piece); foreach $piece (@ip_pieces) { die("ip out of valid range!") if(($piece < 0) || ($piece > 255)); }