#!/usr/bin/perl

use warnings;
use strict;

use Net::Ping;

my $target = "10.64.164.56";

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

if ($p->ping($target, 2))
{
    print "We can ping";
}
else
{
  print "no";
}