Perl: Скрипт перезапуска шифрования канала при пропадании связи

[reinover]

#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $logfile='/var/log/pinger.log';
system 'touch /var/log/pinger.log' if (! -e $logfile);
my $cnock=`ping -c 10 x.x.x.x`;
if ($cnock=~/.* 100.0% packet loss.*/){
  system "/usr/local/etc/rc.d/racoon", "forcestop";
  system "/usr/local/etc/rc.d/racoon", "forcestart";
  chomp(my $timepoint=`date`);
  open LOG, ">>", $logfile;
  select LOG;
  say "racoon was restarted $timepoint";
  close LOG;
}

x.x.x.x - локальный ip адрес шлюза