Graphics[{Circle[{0,0},1],Line[{{Cos[0],Sin[0]},{Cos[0],Sin[0]}+5*{Cos[-π/2],Sin[-π/2]}}],Disk[{Cos[0],Sin[0]}+5*{Cos[-π/2],Sin[-π/2]},0.2]},PlotRange->{{-10,10},{-10,1}}]