The old Legacy probably didn't have objects hanging around, so how about restricting the object to a lexical scope?

package Legacy;

sub Ugly_Sub_Name {
    my $new_obj = New->new();
    $new_obj->pretty_method;
}
[download]

Even just making the object a file scoped lexical would work, but I don't see a need to make a closure on it.