ping with perl

pinglog

#!/usr/bin/perl

use Net::Ping;
use POSIX;

if ($#ARGV == -1) { die "Usage: pinglog {ip address} \n"; }

$host = $ARGV[0];
$ping = Net::Ping->new("icmp", 2);
$status = "Dead";

while (1) {
  $old_status = $status;
  $datestring = strftime "%a %b %e %H:%M:%S %Y", localtime;

  if ($ping->ping("$host")) {
    $status = "Alive";
  } else {
    $status = "Dead";
  }

  if ($old_status ne $status) {
    print "$datestring '$host' is $status\n";

  }
 if ($status == "Alive") { sleep(2); }
}