my $file = -s File::Spec->catfile($dir, $_);