.
  .
  .
foo("square", 3);
  .
  .
  .
sub foo{
  my ($shape, $size) = @_;
  .
  .
  .