gistfile1.txt

#!/usr/bin/env perl
use List::Util qw(first);
while(1){
    if (first { /\Q100.0% packet loss\E/ } `ping -W 1 -c 3 192.168.0.1`) {
        `osascript ~/config/bin/toggle-air-mac.scpt`;
        `osascript ~/config/bin/toggle-air-mac.scpt`;
    }
    sleep(10);
}