sub rcurry {
    my ($f, @args) = @_;
    return sub { $f->(@_, @args) };
}

*company_name = &rcurry(\&wrap_with_html, "FoxTrotUniform Inc.");

print company_name('B');
print company_name('I');
print company_name('H1');