foreach $server(@servers) {
     my $buf=<>;  # TEST SERVER
}