#!/usr/local/bin/perl

print STDOUT "Enter a number to be squared: ";
$n = <STDIN>;
chop ( $n );
print STDOUT "The square of ", $n, " is ", $n * $n, "\n";