while(1) {
    my $modtime = (stat($file))[9];
    if ($modtime == $lastaccessed) {
      # The file is the same
    } else {
      # File is different; do whatever, and also:
      $lastaccessed = $modtime;
    }
    sleep 5;
}