use 5.010;
use strict;
use warnings;

sub square($) {
  my $x = shift;
  return $x * $x;
}

sub square_and_say($) {
  my $x = shift;
  my $s = square($x);
  say "$x ^ 2 = $s";
}

square_and_say 2;