my $file = "somefile.txt";

# Establish a base "last accessed time"
my $lastaccessed = (stat($file))[9]; 

while(1) {
  if ((stat($file))[9] == $lastaccessed) {
    # The file is the same
  } else {
    # File is different
  }
  sleep 5;
}