use Net::Whois::RIPE;
use strict;
use warnings;

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

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

my @output = $whois->query($as);

foreach my $line (@output) {
	print $line;
}

exit;