print "$ff\n";
print "$fk\n";
$block4 = Net::Netmask->new2($fk);