#それぞれ一回ずつhogeと表示させたいのですが、
#どうすればいいか分かりません。教えてください。

my $b = new a();
print 'nothing';
$b->nothing();# hoge
print 'read';
$b->read();# hoge

package a;

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

sub read {
my $self = shift;
print "hoge\n";
}

AUTOLOAD {
my $self = shift;
$self->read();
}