use Net::Whois::RIPE;

$server = "whois.ripe.net";
$as = "LEASEWEB";

$whois = Net::Whois::RIPE->new($server);

$query = $whois->query($as);

$output = $query->content;

@lijn = split(/\n/,$output);
foreach $line (@lijn) {
	@lines = split(/:/, $line);
	next unless ($lines[0] =~ /inetnum/);
	$lines[1] =~ s/^\s+|\s+$//g;
	print $lines[1]."\n";
}

exit;