Select Code to Download

while( $Monitor->FindNext() )

sub FindNext { &reset }

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