Hi all:

I am writing a script to monitor one file's change using the following code.

#!/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;
[download]

The file is in a plain text format, such as:

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

So,is there another method can I do this work in a better way? Any suggestions will be appreciated!