sub getAllIPs {
	my $ip = Net::IP->new($range) or die (Net::IP::Error());
	my @IPs ;
  	# Loop
  	do {
  		push @IPs, $ip->ip() ;
  	} while (++$ip);
	
	return @IPs ;	
}