Why won't this player entered hat giver work?

I've been trying to figure out how to give a hat located in the Workspace to each player when they join the server. I need the players current hats removed, and then this hat given to them. So far, the player looks like a noob when they join, but they don't get the hat. Any help would be awesome.

Join = (function (Plyr)
    Plyr.CanLoadCharacterAppearance = false
    wait(1)

    local hat = game.Workspace.MorningGlasses:Clone()

    if not Plyr.Character then 
        Plyr.CharacterAdded:wait()
    end

    hat.Parent = Plyr.Character.Head
end)

wait(1)

game.Players.PlayerAdded:connect(Join)
for _,v in next, game.Players:GetPlayers() do
    Join(v)
end

The code above is what I've been working with. It's inside a script in ServerScriptService.