my $old_time = (stat( $file ))[9];

while ( 1 ) {
    sleep $period_in_seconds;
    my $current_time = (stat($file))[9];
    while ( $current_time != $old_time ) {
         $old_time = $current_time;
          print "file changed$/";
          $current_time = (stat($file))[9];
    }
}