my $ff="10.6.10.5"; 
my $fk="$ff:255.255.255.0";
$block4 = new2 Net::Netmask($fk);
print $block4->size();