谁来看看这个Perl的脚本为什么会hung住？

谁来看看这个Perl的脚本为什么会hung住？
[quote]

use Win32::ChangeNotify;
$WatchDir = new Win32::ChangeNotify( "d:\\", 1, FILE_NOTIFY_CHANGE_SIZE | FILE_NOTIFY_CHANGE_FILE_NAME | FILE_NOTIFY_CHANGE_LAST_WRITE );
$WatchDir->reset();
while(1){
my $Result = $WatchDir->wait( 2000 );
if( $Result )
{
print "get one event\n";
$WatchDir->reset();
}
print "sleep\n";
sleep 1;
print "sleep over\n";
}
[/quote]

如果把下面两行注释掉，那程序就不会hung住，而且可以顺利的monitor到目录的变化。
sleep 1;
print "end sleep\n";

请高手赐教