#!/usr/bin/perl -w

use strict;
use IO::Handle;

my $file='data.txt'; #file to be monitored
open (FD, "$file") or die $!;
my $oldsize= -s "$file"; 
my $newsize= -s "$file"; 
my @change=$newsize-$oldsize;    

until ($change[0]!=0){   
  wait;     #wait for file to be changed
}

continue{    #if there were some changes in file         
     $newsize= -s "$file";
     @change=$newsize-$oldsize;
     if ($change[0]!=0){
	print "The file has been changed";
     }
}    
close FD;

##</code><code>##

1277435278
1277435343
1277435382
dee
djennga
dega
denga
ddenga
ddjeig
deng
djeng
ddeng