Simple Perl OOP Hello World Example

perl_helloWorld.pl

package HelloWorld;
sub new
{
    my $class = shift;
    my $self = { };
    bless $self, $class;
    return $self;
}
sub print
{
    print "Hello World!\n";
}

package main;
$hw = new HelloWorld();
$hw->print();