gistfile1.PL

use strict;
use warnings;
  
my $str;
my $time = $#ARGV > -1 ? pop : 5;

while (<DATA>) {
  chomp;
  s/^\s+//; 
  $str .= sprintf ' -e "%s"', $_;
} 
my $command = sprintf '/usr/bin/osascript %s', $str;
  
while ( 1 ) {
  sleep $time;
  unless ( `ps ax | grep java` =~ /processing\.core\.PApplet/ ) {
    system $command;
    print localtime(time) . " execute $command\n";
  }
}
__DATA__
tell application \"Processing\"
  activate
end tell

tell application \"System Events\"
  if UI elements enabled then
    key down command
    keystroke \"r\"
    key up command
  end if
end tell