#!/usr/bin/perl
$command="ping -c 1 ".$ARGV[0]." 1>out 2>error ";
system($command);
open(INFILE, "out") or die "Cannot open out: $!.\n";
$success=0;
while(my $line = <INFILE>)
{
if ($line =~ m/1 received/)
{
$success=1;
}
}
print $success."\n";
close INFILE;