sub curry
{
    my ($func, @args) = @_;

    return sub {
        my (@rest) = @_;
        &$func(@args, @rest); 
    }
}

# Currying:

sub foo
{
    my ($x, $y) = @_;

    print "$x + $y = ", $x + $y, "\n";
}

my $plus_five = &curry(\&foo, 5);

&$plus_five(3);