perl -Mautodie -we '$app="ApplePerlQuine\@perlmonks.org.app";die"not apple mac"unless${^O}eq"darwin";open$f,"|-","osacompile -o $app";print$f qq~set myPATH to path to me as string\nset myPATH to myPATH & "Contents:Resources:Scripts:main.scpt"\nset myPATH to do shell script"echo " & myPATH & " | tr : / | sed -E \x27s/Macintosh HD//\x27"\ndisplay dialog (do shell script ("osadecompile " & myPATH)) with title "$app" buttons {"Use Perl!"} default button 1\n~;close$f;system("open $app")'