perl -Mautodie -we '$app=qq(ApplePerlQuine\@perlmonks.org.app);die"not apple mac"unless${^O}eq"darwin";open$f,qq(|-),qq(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 (\"perl -Mautodie -we \x27\x24app=qq(ApplePerlQuine\134\134\100perlmonks.org.app);\nopen\x24f,qq(|-),qq(osacompile -o \x24app);\nprint\x24f qq\(\" & do shell script ("osadecompile " & myPATH)) & "\);close\x24;system\(\x27\x27open \x24app\x27\x27\)" with title "$app" buttons {"Use Perl!"} default button 1\n\(* This is an ASCII representation of the Perl source used to make this app. It will not cut and paste because of hex and octal tricks. See perlmonks.org/?node=1216984 for details. *\));close$f;system("open $app")'