#!/usr/bin/perl

$x = 5;
$y = square($x);
print "$x squared is $y\n";

sub square
{
  return $_[0] * $_[0];
}

# Prints:
# 5 squared is 25