How do you use object construction and new with a short example?

In Perl, you can create objects using the concept of classes and the `new` constructor. This example demonstrates how to define a simple class and create an object instance.


        package Animal;

        sub new {
            my $class = shift;
            my $self = {};
            bless $self, $class;
            return $self;
        }

        sub speak {
            my $self = shift;
            return "Roar!";
        }

        package main;

        my $animal = Animal->new();
        print $animal->speak();  # Output: Roar!