If[Length[$ScriptCommandLine]==1,
    Print["No expressions were given to square."],

    args = Rest[$ScriptCommandLine];
	squares = Quiet @ Map[Replace[ToExpression[#], {$Failed:>ToString[#,InputForm]^2, x_ :> x^2}]&, args];
    MapThread[Print["The square of ", #1, " is ", #2, "."]&, {args, squares}]
]

"If[Length[$ScriptCommandLine]==1,
    Print["No expressions were given to square."],

    args = Rest[$ScriptCommandLine];
	squares = Quiet @ Map[Replace[ToExpression[#], {$Failed:>ToString[#,InputForm]^2, x_ :> x^2}]&, args];
    MapThread[Print["The square of ", #1, " is ", #2, "."]&, {args, squares}]
]".