my $server - (split /\s+/, $line, 2)[0];