sub shootFoot {
  my $inTheFootShoot = shift;
  ...
}

##</code><code>##

sub shootFoot {
  my ($self,$inTheFootShoot) = @_;
  ...
}