There is an excellent example of a script that uses Win32::ChangeNotify and Win32::Service that monitors and logs all changes to a subdirectory. It is at http://www.roth.net/perl/scripts It's called dirmon.pl.

$code or die
Using perl at
The Spiders Web