#!/usr/bin/perl

print "-M of $ARGV[0] is ".(-M $ARGV[0]).$/; # should be positive

system("touch $ARGV[0]"); # reset file's mod time to now.
sleep 1
print "-M of $ARGV[0] is now ".(-M $ARGV[0]).$/; # should be (very small) negative

sleep 4; 
print "-M of $ARGV[0] is now ".(-M $ARGV[0]).$/; # should be equal to previous