#!/usr/bin/perl
# IP ranger
open(IPFILE,"iplist.txt");
while (<IPFILE>) {
	($stip,$edip) = split(/:/,$_);
	chomp ($edip);
	print "$stip\n";
	print "$edip\n";
	@openip = split(/./,$stip);
	$count = @openip;
	print "$count\n";
#	for ($i = 0; $i <= 4; $i++) {
#		print "@srtip\n";
#	};
};
close(IPFILE);