sub print_sum($$) {
    my ($x, $y) =@_;
    my sub adder {return $_[0]+$_[1] };
    printf "sum of $x, $y = %d\n", adder($x, $y);
}