perl -Mautodie -we 'die"not apple mac"unless${^O}eq"darwin";open$f,"|-","osacompile -o CPAN.app";print$f qq~set CPAN to text returned of (display dialog "Search CPAN for" with title "Perl CPAN Search" default answer "")\nif CPAN is equal to "" then return\ndo shell script("open \\"https://metacpan.org/search?q=" & CPAN & "\\"")~;close$f;system("open CPAN.app")'