Script to ping tcp connections, which gets round firewall ICMP blocks. Taken from the Backuppc mailing list here: http://www.mail-archive.com/[email protected]/msg07903.html

ping_tcp.pl

#!/usr/bin/perl -w
use strict;
use Net::Ping;

die "usage: $0 port hostname\n" unless(@ARGV == 2);

my $serv = shift @ARGV;
my $host = shift @ARGV;

my $p = Net::Ping->new("tcp", 30);
$p->hires();

if($serv =~ /^\d+/) {
   $p->{port_num} = $serv;
} else {
   $p->{port_num} = getservbyname($serv, "tcp");
}

my @res = $p->ping($host);

if(@res) {
   my ($succ,$rtt,$ip) = @res;
   if($succ) {
      my $ms = int ($rtt*1000);
      print "$host [$ip] - $serv - time=$ms ms\n";
   } else {
      exit -1;
   }
}