my $folly = $fool->folly; if ( fork() ) { # child process answer( $folly); } else { # parent process answer( not $folly ); }