sub DirCheck{
	my $_dir = $_[0];
	print "Directory: $_dir\n";
	opendir (DIR, "$_dir") or die "Directory $_dir failed to open: $!";
	my @_dirStat = stat DIR;
	closedir (DIR);
	print "Meow\n";
	print "DirStat: " . @_dirStat . "\n";
	foreach $i (@_dirStat){
		print "Item: $i\n";
	}
	#my $_time = ctime($_dirStat[9]);
	#print "Last Modified Time for $_dir: $_time\n";
}