Select Code to Download

$ip = new NetAddr::IP "$User_Preferences{IP}";
@server_list = $ip->hostenum;
...
    print "$server_list[$i]\n";
   }
}