committing pinger

blucia0a · Apr 4, 2012 · 4e05a28 · 4e05a28
1 parent 52e9ca8
commit 4e05a28
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/pinger.pl b/pinger.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use Net::Ping;
+use Time::HiRes;
+
+my $host = shift @ARGV;
+my $pause = shift @ARGV | 1000000;
+my $p = Net::Ping->new();
+
+while( 1 ){
+  $p->ping( $host );
+  Time::HiRes::usleep( $pause );
+}