My Perl Quiz

Question #37: Which messages will be printed in the code below?
39% on 107 times asked

package A;

sub NEW {
    print "hello world!\n";
    return bless {};
};

sub DESTROY {
    print "goodbye world!\n";
};


package main;

my $obj = A::NEW();