#!/usr/bin/perl -w


use Net::Pcap;

my $dev="eth1";
my $address;
my $netmask;
my $err;

if (Net::Pcap::lookupnet($dev, \$address, \$netmask, \$err)) {
    die 'Unable to look up device information for ', $dev, ' - ', $err;
}

print "\n The Ip is $address and the mask is $netmask \n";