PerfectSquareTest[n0_]:=Module[{n=n0},If[Sqrt[n]==IntegerPart[Sqrt[n]],Print["Yes"],Print["No"]]]

PerfectSquareTest[5]