1>use Win32::ChangeNotify ;
2>print " \n Enter a file path ";
3>$pt = <STDIN>;
4>chomp $pt;
5>$notify = Win32::ChangeNotify->new($pt, true ,"SIZE");
6>unless ($notify->wait( '1000' )) 
7>{
8>     print "Nothing Changed";
9>}
10>
11>$notify->reset;
12>print 'Something changed';