Help for this page
my $notifyObj = Win32::ChangeNotify( ... ); my $found = 0; ... $mainWindow->after( 100, \&checkNotify );