package Hello;
use strict;

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

1;

##</code><code>##

use strict;
use Hello;

my $a =  Hello->new();
print $a;