use strict; use Data::Dumper; use Win32::AdvNotify qw (Yes No All); my $obj = new Win32::AdvNotify() or die ("Can't create AdvNotify object"); (my $thread=$obj->StartThread(Directory=>"d:\\brossad",Filter=>All, WatchSubtree=>Yes)) or die ("Can't start thread."); $thread->EnableWatch() || die "Problem starting EnableWatch()\n"; while (!$obj->Wait(200)) # time in milliseconds { print ".";#wait and see } my @data; my $ret = $obj->Read(\@data); print Dumper(@data); # very important line - don't forget it $thread->Terminate(); $obj->Free;