in reply to Network/Netmask returned by Net::Pcap's lookupnet

print join( ".", unpack( "C4", pack( "N", $addr ) ) ),
        "/",
        join( ".", unpack( "C4", pack( "N", $mask ) ) );

[download]

In Section Seekers of Perl Wisdom