$ cat l.pl
#!/usr/bin/perl -wuse strict;
use NetAddr::IP;
my $ip = new NetAddr::IP qq($ARGV[0]);
my $addr1 = $ip->addr;
print qq(The address1 is $addr1\n);
$ip = new NetAddr::IP qq($ARGV[1]);
my $addr2 = $ip->addr;
print qq(The address2 is $addr2\n);
if ($addr1 eq $addr2)
{
print("IP-addresses are equal.\n");
}
else
{
print("IP-addresses are diffrent.\n");
}
$ ./l.pl 192.168.1.1 192.168.1.1
The address1 is 192.168.1.1
The address2 is 192.168.1.1
IP-addresses are equal.
$ ./l.pl 192.168.1.1 192.168.1.10
The address1 is 192.168.1.1
The address2 is 192.168.1.10
IP-addresses are diffrent.