use NET::IP;
my $ip = new NET::IP('1.2.3.4/4');
print ($ip->reverse_ip());