my $mtime = (stat("/home/user/ptest/$dir"))[9];