#! /usr/bin/perl

use strict;
use warnings;

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

    return sub {
        $fn->(@args, @_);
    }
}

&curry(+, 2)->();