package Legacy; sub Ugly_Sub_Name { my $new_obj = New->new(); $new_obj->pretty_method; }