sub mtime {
my $file = shift;
my $option = shift;
my $mtime = (stat $file)[9];
my $epoch = time();
my $mtime = $epoch-$atime;