Making a player "Roll" six studs?

I have a script, and its supposed to make the player's character move by six studs. And, I am soon going have an animation to this(if this script works), this is to simulate "Rolling."

Here's the script

local Plr = game:GetService("Players").LocalPlayer
local Mouse = Plr:GetMouse()

Mouse.KeyDown:connect(function(key)
    key = key:lower()
    if key == "r" then
        print("R has been pressed!")
        local Character = Plr.Character
        local RootPart = Character.HumanoidRootPart
        RootPart.CFrame = RootPart.Position + CFrame.new(0,0,6)
    end
end)

And, don't please judge I'm using the mouse, its the only way I know how to use key down. Thanks