1 files changed, 16 insertions, 0 deletions
diff --git a/src/mac/RunAppleScript.pl b/src/mac/RunAppleScript.pl
new file mode 100644
index 000000000..8a4828b89
--- /dev/null
+++ b/src/mac/RunAppleScript.pl
@@ -0,0 +1,16 @@
+use Mac::Components;
+use Mac::OSA;
+use Mac::AppleEvents;
+
+undef $/;
+
+$applescript = OpenDefaultComponent(kOSAComponentType, "ascr") or die "AppleScript not installed";
+$script = AECreateDesc "TEXT", <STDIN>;
+
+$result = OSADoScript($applescript, $script, 0, "TEXT", 0) or die $^E;
+
+print AEPrint($result), "\n";
+
+AEDisposeDesc $result;
+AEDisposeDesc $script;
+CloseComponent $applescript;