ciao, non so come finire questo script (diciamo che +- ho cominciato oggi)

se pinga deve partire beep_si, ma non so come completarlo...
questo l'ho fatto scopiazzando qua e lā e incominciando a capire qualche cosa.
ho tolto le ultime righe, chi mi aiuta? non dovrebbe essere complicato....credo....
ah, sarebbe bello scrivesse un file di log, quando il ping risponde negativo

#!/usr/bin/perl


# CONFIGURAZIONE

my $ping="/bin/ping";
my $grep="/bin/grep";
my $beep="/usr/bin/beep_si"; #file beep destinazione raggiungibile
my $pingdestinatione="192.168.2.2";
my $writedir="/home/debian/"; # Un file di LOG

# Touch LOG
`touch $writedir/log-ping.tmp`;

# Prova ping
my $provaping = `$ping $pingdestinatione | $grep received`;

# Resultati
if ($pingres =~ /(\d+) packets transmitted, (\d+) received, .*/) {

`$beep_si`;
else



}