Select Code to Download

use Socket qw( inet_aton );
use List::MoreUtils qw( apply );
...

print "$_\n"
   foreach @sorted;