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.