use strict;
use Net::Ping::External qw(ping);

my ($server);

open (SERVERS, "<serverlist.txt");

my @srvlist = <SERVERS>;
foreach $server (@srvlist)
{
	# chop;
	my $alive = ping(host => "\${server}");
  	print "$server is online" if $alive;
}
close(SERVERS);