use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/libs";

use Net::IP;

my $ip = new Net::IP('1.2.3.4/4');

print ($ip->reverse_ip());