use strict;
use Win32::AdvNotify qw (Yes No All %ActionName);
my $obj = new Win32::AdvNotify() or die ("Can't create AdvNotify object");
my $folder = "c:\\";
(my $thread=$obj->StartThread(Directory=>$folder,Filter=>All,WatchSubtree=>Yes)) 
or die ("Can't start thread.");