$ip = new NetAddr::IP "$User_Preferences{IP}";
@server_list = $ip->hostenum;

for ($i = 0; $i <= 254; $i++) {
  if ($server_list[$i] =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/) {
    $period = ".";
    $server_list[$i] = $1 . $period . $2 . $period . $3 . $period . $4;
    print "$server_list[$i]\n";
   }
}