Select Code to Download

package Legacy;

$new_obj = New->new();
...

# should return the value from New->pretty_method
print  Legacy::Ugly_Sub_Name, "\n";