while( $Monitor->FindNext() )

##</code><code>##

sub FindNext { &reset }

##</code><code>##

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