Select Code to Download

sub CarAccident {
    my (%I) = @_;
...
            Damage => $Damage
    };
}

OutputVar => {
    InputValue1 => {
...
        OutputValue2 => (probability)
    }
}