use Net::Ping;
use strict;

my $host="10.6.1.107";

my $p=Net::Ping->new();
	print "$host is alive\n" if $p->ping($host);
$p->close();

$p=Net::Ping->new("tcp");