$fname =~ s/\.[^\.]*$//;