my ($ext) = $name =~ /\.([^.]*)$/;
return if ! defined $ext or ! exists $exts{$ext};