print "Enter the  number to square:\n";
$input = <STDIN>;
chop ($input);
$result = ($input ** 2);
print "The answer is ";
print "$result.\n";