sub foo ($$;$) { ... }

my $curried_foo = foo( 1 );
my $return_value = foo( 1, 2 );