That works. The only comment I have is on:

while( $Monitor->FindNext() )
[download]

I looked at the documentation for the FindNext() call, but it did not specify a return value. So, I am not too sure about what it returns.
...
Okay, I just looked at the ChangeNotify.pm, the sub FindNext goes something like:

sub FindNext { &reset }
[download]

So, I would imagine your while will run just fine. But, to be on the safe side, I'd do an explicit infinite loop.

while( 1 )
{
    print "Monitoring noted filesystems....\n";
    $Monitor->FindNext(); 
    $Monitor->Wait( INFINITE );
    print "\t A change to $SCRIPT_PATH\n";
}
[download]

But, that is just being nit-picky. Looks good to me.

Jeremy