Help for this page
if (($fname =~ /\./) && !($fname =~ /\.$/)) { $fname = lc($fname); ... else { $hash{"no ext"}++; }
if ($#temp >0) {$hash{@temp[-1]}++} else {$hash{""}++}