auto coins host suggester

get_host.pl

#!/usr/bin/perl 
my @sources = split(/\t/, `curl -s http://www.open.coins.tsukuba.ac.jp/status/coins/ | sed '32!d'`); 
@sources = grep(/(cosmos|burnet|acacia)\d\d.*OK/, @sources); 
for(my $i = 0; $i < $#sources+1; $i++) { 
    $sources[$i] =~ /(cosmos|burnet|acacia)(\d\d)/; 
    $sources[$i] = "$1$2.coins.tsukuba.ac.jp"; 
} 
print "Content-type: text/html\n\n"; 
print $sources[rand($#sources)];