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