Help for this page

Select Code to Download

Select or download this

sub foo1 {
    my (undef, $d, undef, $f) = @_;
    return $d * $f;
}