My Perl Quiz

Question #45: What gets printed?
49% on 69 times asked

package A;
sub NEW { bless {}, shift }
sub AUTOLOAD { print ref(shift) }

package main;

my $obj = NEW A;

$obj->foo();