use File::Glob qw(:globally :nocase);
if(<$file>) {