Net::Whois::RIPE::Object=HASH(0x315a608)Net::Whois::RIPE::Object=HASH(0x315c9f0)
Net::Whois::RIPE::Object=HASH(0x315ccb4)Net::Whois::RIPE::Object=HASH(0x315d068)
Net::Whois::RIPE::Object=HASH(0x315d32c)Net::Whois::RIPE::Object=HASH(0x315d6e0)
Net::Whois::RIPE::Object=HASH(0x315d938)Net::Whois::RIPE::Object=HASH(0x315dc50)
...

##</code><code>##

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;