format_c@boston ~ $ su -c "perl test.pl 192.168.0.6"
Password: 
Benchmark: timing 1000000 iterations of ICMP: , TCP:  ...
    ICMP: : 229 wallclock secs (58.44 usr + 16.73 sys = 75.17 CPU) @ 13303.18/s (n=1000000)
    TCP:  : 326 wallclock secs (137.08 usr + 36.07 sys = 173.15 CPU) @ 5775.34/s (n=1000000)
format_c@boston ~ $ 

use strict;
use Net::Ping;
use Benchmark;

my $tcp = Net::Ping->new("tcp");
my $icmp = Net::Ping->new("icmp");

timethese(1_000_000,
        {
               
 "TCP:  " => sub { $tcp->ping($ARGV[0]); } ,
               
 "ICMP: " => sub { $icmp->ping($ARGV[0]); }
        }
);