Help for this page
set theWindowTitle to "PerlMonks"
set theOption to text returned of (display dialog "Enter a Source fold
+er:" & return default answer "" with title theWindowTitle)
set thePerlScript to quoted form of (POSIX path of ((choose file with
+prompt "Select a script:") as Unicode text))
set theResult to do shell script thePerlScript & " -S " & theOption
display dialog "Result: " & theResult with title theWindowTitle
Throwing nuclear weapons into the sun
Making everybody on Earth disappear
A threat from an alien with a mighty robot
A new technology or communications medium
Providing a magic fish to a Miss Universe
Establishing a Group mind
Results (199 votes). Check out past polls.