ok u rigth.. why parse the output ?? use pure Perl!
here the new version
some idea to play sound in other system? like if $^O ne 'MSWin32' ...

#!perl
use strict;
use warnings;
$|++;
use Getopt::Long;
use Net::Ping;
use Win32::Sound;


my $sleep = 60;
my $conteggio = 4;
my $echook = ( $conteggio - 1 );
my $alarmnum = 3;
my $sound;
my $volume = 100;
my $timeout = 2;
my  $host;
&aiuto() if ( !GetOptions('ip=s' => \$host,
                          'sleep=i'   => \$sleep,
              'conteggio=i'=>\$conteggio,
                          'ok=i' => \$echook,
                          'timeout=i' => \$timeout,
                          'alarm=i' => \$alarmnum,
                          'play=s' => \$sound,
                          'volume=i' => \$volume,
                       ) or ! $host );


$timeout = 2 if $timeout < 1;
$alarmnum = 3 if $alarmnum < 1;
if ( $echook >  $conteggio ){ $echook = $conteggio-1 }
if (defined $sound && !(-e $sound)) {$sound = 'crow.wav'}
######################################################################
+##########
while (1){
  sleep $sleep;
  my $ok = &controlla($host);
  if ($ok < $echook){
    for (1..$alarmnum) { &suona() }
    print " ERROR !\n";
  }
  else {print " OK $host\n";}
}
######################################################################
+##########
sub controlla{
    my $host = shift;
    my $p = Net::Ping->new("icmp");
    my $ok = 0;
    foreach my $try  (1..$conteggio)
    {
        print ($p->ping($host, $timeout) ? (++$ok and '.') : 'X' );
        sleep(1);
    }
    $p->close();
    return $ok;
}
######################################################################
+##########
sub suona {
         if (defined $sound && -e $sound) {
            Win32::Sound::Volume($volume,$volume);
            Win32::Sound::Play($sound);

         }
         else {sleep 1; print"\a\a"}
}
######################################################################
+##########
sub aiuto {
    print <<EOA;


UTILIZZO DI $0:

$0 -i 10.0.0.1  [-sleep n]  [-conteggio n] [-ok n]  [-timeot n] [-alar
+m n]  [-play file.wav] [-volume %]

-i 10.0.0.1
ping specified IP every 60 seconds  4 times expecting 3 positives repl
+y or play  3 system bell during 3 seconds

--ip=10.10.0.1 --sleep = 30  --conteggio = 10 --ok = 5 --alarm = 20


-i 10.10.0.1 -s 30  -c 10 -o 5 -a 20
same of above


EOA

exit 1;
}
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.