#!/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";