Good morning, I am a newbie at Perl and trying to figure out how to use the whois command in a loop and I am getting syntax errors at this line use Net::Whois::IP qw(whoisip_query); and im not really sure what I am doing wrong it looks really similar to what I have seen others do. I also try'd a simple foreach loop but ran in to trouble with that here are those errors. syntax error near unexpected token `(' my @domains = ('192.168.22.12','192.168.22.13');'

 
#!/usr/bin/perl -w

use strict;
use warnings;
use Net::Whois::IP qw(whoisip_query);
use Net::Whois;

my @domains = ('192.168.22.12','192.168.22.13');
foreach my $domain(@domains)
{
my ($response) = whoisip_query($domain);
foreach (sort keys(%{$response}) )
{
print "$_ $response->{$_} \n\n";
}
}
[download]

#!/usr/bin/perl -w

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

my @domains = ('192.168.22.12','192.168.22.13');                    
                          
foreach$domain(@domains) 
{
whois($domain);
}
[download]

Any help is greatly appreciated