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