そういえば Cocoa::EventLoop と言うモジュールを書いたんでした。 これはもともと AnyEvent::Impl::NSRunLoop として書いていたイベントループ処理部分だけを単体モジュールとして切り出した物で、 AnyEvent を使わなくても Cocoa のイベントループを Perl から使用できるというものです。 くわしくはドキュメントを参照してもらうとして、Cocoa::Growl を使ったサンプルを載せてみます: use Cocoa::EventLoop; use Cocoa::Growl; my $done = 0; growl_notify( name => 'Notification Name', title => 'Hello', description => 'Cocoa World!', on_click => sub { $done++; }, o