my ($full_dir, @stat);
$full_dir="c:\\projectstuff";
(@stat)=stat("$full_dir");
print scalar(localtime($stat[10]));