Select Code to Download

sub same_mod_time { (stat($_[0]))[9] == (stat($_[1]))[9] }

$ > xxx 2> yyy
$ perl -Mstrict -Mwarnings -E '
...

$ rm xxx yyy
$