#!c:/apps/strawberry/perl/bin/perl.exe
use strict;
use warnings;
use Net::Works::Address;

my $addr = '1.2.3.4';
my $ip = Net::Works::Address->new_from_string( string => $addr);
for(qw/as_string as_integer as_binary as_bit_string version mask_length/){
  print $_,": ",$ip->$_(),"\n";
}