Select Code to Download

#!/usr/bin/perl

...
    '... got the right return value now');

1;

my $curried_foo = foo(1);
my $even_more_curried_foo = $curried_foo->(2);
print $even_more_curried_foo->(3); # now we execute the function