view release on metacpan or  search on metacpan

eg/mac_speak  view on Meta::CPAN

#!/usr/bin/perl -w
use strict;
use Acme::Opish;
print enop("@ARGV"), "\n";
s/'//g for @ARGV;
my @opped = enop(-opish_prefix => 'awp', @ARGV);
system qq/echo 'tell application "Finder" to say "@opped"' | osascript/;