my $lassie = Dog->new(10); print "Lassie is " $lassie->is_stupid ? "dumb" : "smart";