my @fileProps = stat($file) or die "stat of $file failed!: $!";
use Data::Dumper;
print "DEBUG###\n", Dumper(\@fileProps), "\n####\n";