Linux::Inotify2ではなくFilesys::Notify::Simpleを使った方がポータブルですが、とりあえずは習作ということで。監視しているディレクトリで何かがあるとピコピコ通知されるので、ああ今PCが頑張っているのだなあという気持ちになれます。 #!perl -w use strict; use Linux::Inotify2; use Growl::Any 0.05; # ※Growl::NotifySend や Desktop::Notify などが必要 my $dir = shift(@ARGV) || '.'; my $w = Linux::Inotify2->new(); my $g = Growl::Any->new( appname => 'inotify-growl', events => ['modify'] ); # copied and modifi