my $boss = &curry( \&echo, "My", "boss:" );
my $friend = &curry( \&echo, "Johnny:" );

print &$boss qw( has pointy hair ), "\n"; # "My boss: has pointy hair
print &$friend qw( likes rock and roll ), "\n"; # etc.