Permalink
Browse files

committing pinger

  • Loading branch information...
blucia0a committed Apr 4, 2012
1 parent 52e9ca8 commit 4e05a284da05f059031c35c0c1ccc58265f2a75b
Showing with 13 additions and 0 deletions.
  1. +13 −0 pinger.pl
View
@@ -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 );
+}

0 comments on commit 4e05a28

Please sign in to comment.