use Net::Pcap;
my $dev  = Net::Pcap::lookupdev( \$err );
if ( defined $err ) {
    die "Unable to determine network device for monitoring - ", $err;
}
@devs = Net::Pcap::findalldevs(\$err);

 foreach (@devs) 
   {
   	  $dev= $_ ;
 	  print "$_ \n";
	  my ( $addr, $net, $mask );
     if ( Net::Pcap::lookupnet( $dev, \$net, \$mask, \$err ) ) 
         {die "Unable to look up device information for ", $dev, " - ", $err; }
     print "Device : $dev, Network Address : $net, NetMask : $mask \n";
   }

##</code><code>##

C:\Perl\Data>..\bin\perl Pcap-102.pl
\Device\NPF_{A6DECF92-8A65-40B8-BFDC-214D19DA6F37}
Device : \Device\NPF_{A6DECF92-8A65-40B8-BFDC-214D19DA6F37}, Network Address : 2604000768, NetMask : 4294967040
\Device\NPF_{8A8505C7-56D7-4D83-B18E-85957B77C060}
Device : \Device\NPF_{8A8505C7-56D7-4D83-B18E-85957B77C060}, Network Address : 3232238080, NetMask : 4294967040
\Device\NPF_{B44D4BF3-170A-4772-BF08-B03EB1739C5C}
Device : \Device\NPF_{B44D4BF3-170A-4772-BF08-B03EB1739C5C}, Network Address : 0, NetMask : 0
\Device\NPF_{691970A7-D403-46AD-BC01-1628915ED58A}
Device : \Device\NPF_{691970A7-D403-46AD-BC01-1628915ED58A}, Network Address : 0, NetMask : 4278190080

C:\Perl\Data>

##</code><code>##

Wireless LAN adapter Wireless Network Connection:

   Connection-specific DNS Suffix  . : hsd1.ca.comcast.net.
   Description . . . . . . . . . . . : Intel(R) WiFi Link 5300 AGN
   Physical Address. . . . . . . . . : 00-21-6A-17-F1-56
   DHCP Enabled. . . . . . . . . . . : Yes
   Autoconfiguration Enabled . . . . : Yes
   Link-local IPv6 Address . . . . . : fe80::11f2:d913:3057:da24%13(Preferred)
   IPv4 Address. . . . . . . . . . . : 192.168.10.103(Preferred)
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Lease Obtained. . . . . . . . . . : Tuesday, January 01, 2013 8:20:58 PM
   Lease Expires . . . . . . . . . . : Wednesday, January 02, 2013 2:33:19 AM
   Default Gateway . . . . . . . . . : 192.168.10.1
   DHCP Server . . . . . . . . . . . : 192.168.10.1
   DHCPv6 IAID . . . . . . . . . . . : 234889578
   DHCPv6 Client DUID. . . . . . . . : 00-01-00-01-11-D6-E3-9D-00-25-B3-2E-25-5A
   DNS Servers . . . . . . . . . . . : 202.148.200.3
   NetBIOS over Tcpip. . . . . . . . : Enabled