foo.pl

#!perl
use strict;
use warnings;
use Growl::Any;

my $growl = Growl::Any->new( appname => 'foo', events => ['bar'] );
$growl->notify( 'bar', 'baz', '...' );
warn $growl->backend;

うむ...ちょっと考えてきます。