$ext = (split /\./, $fname)[-1];