Would print -1,0,1 if the first file was older,the same, or newer than the second file:

print "" . ( (stat($ARGV[0]))[9] <=> (stat($ARGV[1]))[9] )  ."\n";
[download]