gistfile1.txt

#!/usr/bin/perl
# mtimeを揃える
# same_mtime dir1 dir2
use strict;
use File::Find;
my @d = @ARGV;
my $our_mtime = 0;
sub _mtime {
	my @st = stat $_;
	$our_mtime = $st[9] if ($our_mtime < $st[9]);
}
sub _utime {
	utime $our_mtime, $our_mtime, $_;
}
map {
	find(\&_mtime, $_);
} @d;
map {
	find(\&_utime, $_);
} @d;