gistfile1.txt

use strict;
use warnings;
use AnyEvent;

my $cv_timer = AnyEvent->condvar;
my $timer = AnyEvent->timer (
  after => 5,
  interval => 5,
  cb => sub {
    my $lines = `ps ax | grep java`;
    `/usr/bin/osascript run-processing.scpt` unless $lines =~ /processing\.core\.PApplet/;
  },
);

$cv_timer->recv;