sub FeetIntact{
    my ($self,$shootSomeoneElse) = (@_);
    # ...
}