Select Code to Download

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

FeetIntact( toe => big, smell => roquefort );
sub FeetIntact{
    my %par = (@_);
    # $par { smell } now has value 'roquefort'
}