function Teleport(pl,cmd,args)
        local trace=pl:GetEyeTrace()
        local dest=trace.HitPos
        dest = tostring( dest )
        local start=trace.StartPos
        start = tostring( start )
        Msg ("Start pos:\n"..start.."Destination: "..dest)
end
concommand.Add("tel",Teleport)