# !/usr/bin/perl
use IO::Socket;
use POSIX 'strftime';
use Time::HiRes qw(gettimeofday tv_interval);
use Getopt::Long;

my $USAGE = "Usage: sip_ping.pl [-v] [-t] [-s <src_host>] [-p <src_por
+t>] <hostname>";
my $RECV_TIMEOUT = 5; # temps d'attente d'une réponse en secondes
my $sock;
eval { $sock = IO::Socket::INET->new(Proto => 'udp', LocalPort=>'6655'
+, ReuseAddr=>1) };
if ($@) {
    print "Socket could not be made $@";
}
else {
    # options
    my ($verbose, $host, $my_ip, $my_port ,$time);
    #GetOptions("Verbose|v" => \$verbose, "source-ip|s=s" => \$my_ip, 
+"source- port|p=n"=> \$my_port, "time|t" => \$time) or die "Options i
+nvalides:\n\n$USAGE\n";
    #$my_ip="127.0.0.1";
    #$my_port="5060";
    # détermine à qui envoyer un ping
    $verbose=1;
    $time=1;
    my $host = "freevoip.fonosip.com";
    my $dst_addr;
    my $portaddr;

    eval { $dst_addr = inet_aton($host); };
    if ($dst_addr eq "") {
        print "Host $host not found\n";
    }
    else {
        my $dst_ip = inet_ntoa($dst_addr);
        eval { $portaddr = sockaddr_in(5060, $dst_addr); };
        if ($@) {
            print "No connection could be made on port 5060 to $host\n
+";
        }
        else {
            # détermine qui nous sommes
            $my_ip = "127.0.0.1" unless defined($my_ip);
            $my_port = "6655" unless defined($my_port);
            # Numéro appelant long de 32 caractères hexadécimaux aléat
+oires
            my $callid = ""; $callid .= ('0'..'9', "a".."f")[int(rand(
+16))]
            for 1 .. 32;
            # date du jour
            my $date = strftime('%a, %e %B %Y %I:%M:%S %Z',localtime()
+);
            # id de branche - voir la rfc3261 pour plus d'infos, avec
            # utilisation de time() pour l'unicité
            #Contact: <sip:ping\@$my_ip>
            my $branch="z9hG4bK" . time();
            my $packet = qq(
REGISTER sip:$my_ip SIP/2.0
Via: SIP/2.0/UDP $my_ip:$my_port;branch=$branch
From: <sip:810122009\@freevoip.fonosip.com>
To: <sip:810122009\@freevoip.fonosip.com>

Contact: <sip:810122009\@freevoip.fonosip.com>
Call-ID: $callid\@$my_ip
CSeq: 0 REGISTER
max-forwards: 10
expires: 60
User-Agent: ServersCheck Monitoring
Date: $date
Allow: ACK, CANCEL
Content-Length: 0
            );
            # envoie le paquet
            print "Envoi: \n\n$packet\n" if $verbose;
            eval { send($sock, $packet, 0, $portaddr) == length($packe
+t) };
            if ($@) {
                print "Could not send data to $host\n";
            }
            else {
                my $send_time = [gettimeofday()]; # démarre le chronom
+ètre
                my $elapsed;
                $RECV_TIMEOUT=5;
                # obtient la réponse
                eval {
                    local $SIG{ALRM} = sub { die "temporisation de l'a
+larme" };
                    alarm $RECV_TIMEOUT;
                    $portaddr = recv($sock, $packet, 1500, 0) or die "
+Réception impossible: $!";
                    alarm 0;
                    1;
                } or die($@);
                # affiche la sortie
                $elapsed = tv_interval($send_time); # arrête le chrono
+ alarm 0;
                if ($verbose) {
                my @data=("time: xx\%0.2fxx, answer:\n",
                $elapsed*1000, $packet);
                foreach (@data) {
                    print "data: $_\n";
                }
                } elsif ($time) {
                printf("%0.2f\n", $elapsed*1000);
                } else {
                print("$host est en fonctionnement\n");
                }
            }
        }
    }
}
[download]

Hm. Did you write this code?

This might work or it might not. I cannot test it so you will have to and solve whatever problems you encounter.

Try adding the subroutine I posted above to the script.And then replace this chunk of code:

                # obtient la réponse
                eval {
                    local $SIG{ALRM} = sub { die "temporisation de l'a
+larme" };
                    alarm $RECV_TIMEOUT;
                    $portaddr = recv($sock, $packet, 1500, 0) 
                       or die "Réception impossible: $!";
                    alarm 0;
                    1;
                } or die($@);
                # affiche la sortie
[download]

with:

                # obtient la réponse
                my(undef,undef,$packet) = recv_timeout( $sock, $RECV_T
+IMEOUT );
                die "temporisation de l'alarme" } unless $packet;
                # affiche la sortie
[download]

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

Thanks for your help. I managed to get it to work. Original code came from a French article regarding VoIP.