chomp($x=); print $x**2."\n";