#!/usr/local/bin/perl $home = '/public/html/wxyc'; open(SERVERS,"$home/realservers.txt"); $count = 0; while () { chomp; if (($server,$number) = /^(\S+)\s+(\d+)$/) { for ($i = 0; $i<$number; $i++) { $servers[$count+$i] = $server; } $count += $number; } } close(SERVERS); srand(time()^$$); $n = int(rand($count)); $server = $servers[$n]; print ""; print "\n";