use File::stat qw( stat );

sub DirCheck {
    my $_dir = $_[0];
    my $_dirStat = stat($_dir)
        or die "Can't stat directory $_dir: $!\n";

    print "Directory: $_dir\n";
    for my $field (qw(
        dev ino mode nlink uid gid rdev size
        atime mtime ctime blksize blocks
    )) {
        print "$field: ", $_dirStat->$field(), "\n";
    }

    my $_mtime = $_dirStat->mtime;
    print "Last Modified Time for $_dir: $_mtime\n";
}