opendir(DIR,$dir) or die "dead";
@textfiles = readdir DIR;
foreach(@textfiles){
@data = stat($_);
if(scalar(@data) == 0) { print "Has no items"; }
print "$_\n";
}