#!/usr/local/bin/perl -w
# Perl test program Fawlty1.pl

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

$a = 2;
$b = 3;
# Calculate squares of 2 and 3
print "squareFoo($a) = " . squareFoo($a) ."\n";
print "squareFoo($b) = " . squareFoo($b) ."\n";