Select Code to Download

use Win32::AdvNotify;
$aobj = new Win32::AdvNotify();
...
                             Filter => All,
                             WatchSubtree => 0) 
or die "monkwatcher cannot start\n";

use Win32::DirSize;
chomp(my $dir = shift || <DATA>);
...

__DATA__
\\captains\nemo$\nautilus