my $alter='';
while(1){
  $alter=(-M 'file');
  print "$alter\n";
  sleep(5);
  $alter='';
}