$ perl use Net::CIDR qw(cidradd); print join (", ", cidradd(qw{ 209.152.214.112/30 209.152.214.116/31 209.152.214.118/31 })), "\n" ^D 209.152.214.112/29 $ perl use Net::CIDR qw(cidradd); print join (", ", cidradd(qw{ 209.152.214.112/31 209.152.214.116/31 209.152.214.118/31 })), "\n" ^D 209.152.214.112/31, 209.152.214.116/30