watch.pl

use strict;
use warnings;
use Growl::GNTP;
use Filesys::Notify::Simple;

my $watcher = Filesys::Notify::Simple->new(["."]);
my $growl = Growl::GNTP->new;
$growl->register([ { Name => "FileChanged", }, ]);

$watcher->wait(sub {
    my @events = @_;
    $growl->notify(
        Event => "FileChanged",
        Title => "File Changed",
        Message => $_->{path},
    ) for @events;
}) while 1;