Select Code to Download

foo a b c = a ++ c ++ b
with_parens a b = foo a b
y = with_parens "<" ">"

use strict;
use Carp;
...
my $x = foo(1,2);
&$x(3);
&$x(2);