$base = (split(/\./,$fname))[0];