Select Code to Download

use 5.010;
use strict;
...
{
    say $ips{$classc}[rand @{$ips{$classc}}];
}

use 5.010;
use strict;
...

say $ips{$_}[rand @{$ips{$_}}]
    for sort keys %ips;