#!/usr/bin/perl

use strict;
use Win32::API;

my $GetCurrentProcessId = Win32::API->new(
	"kernel32", "int GetCurrentProcessId()"
	);
my $PID = $GetCurrentProcessId->Call();
print "PID: $PID\n";

my $FindFirstChangeNotification = Win32::API->new(
	"kernel32", "FindFirstChangeNotification", "PIN", "P"
	);
if(not defined $FindFirstChangeNotification) {
	die "Can't import API GetTempPath: $!\n";
	}

my $hHandle = $FindFirstChangeNotification->Call("C:\\", 1, 1);

#my $hChange = Win32::API->FindFirstChangeNotification("C:\\", 1, 1); #FILE_NOTIFY_CHANGE_LAST_WRITE);