#!/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 $time...