Allow --sleep to specify the delay.

  Used with --loop/--forever

multi-ping

@@ -6,7 +6,7 @@ multi-ping - Multi-protocol ping wrapper
 
 =head1 SYNOPSIS
 
-  multi-ping [--loop|--forever]  hostname1 hostname2 .. hostnameN
+  multi-ping [--loop|--forever] [--sleep=N]  hostname1 hostname2 .. hostnameN
 
 =cut
 
@@ -83,7 +83,9 @@ do
     {
         pingHost($host);
     }
-    sleep 1;
+
+    sleep( $config{ 'sleep' } );
+
 } until ( !$config{ 'loop' } );
 
 
@@ -198,14 +200,20 @@ Parse the options and return suitable values.
 sub parsedOptions
 {
     my %vars;
-    $vars{ 'loop' } = 0;
+
+    #
+    # Defaults
+    #
+    $vars{ 'loop' }  = 0;
+    $vars{ 'sleep' } = 1;
 
     exit
       if (
            !GetOptions( "help"    => \$vars{ 'help' },
                         "verbose" => \$vars{ 'verbose' },
                         "forever" => \$vars{ 'loop' },
                         "loop"    => \$vars{ 'loop' },
+                        "sleep=i" => \$vars{ 'sleep' },
                       ) );
 
     pod2usage(1) if ( $vars{ 'help' } );