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