my $folly = $fool->folly; my $tabby = new Cat( owner => 'Schroedinger' ); answer( $folly ) if ( $tabby->alive ); answer( not $folly ) unless ( $tabby->alive );