$children = 0;
while (!dead()){
fork;
print "Поздравляем! У вас " . sex() . "\n";
$children++;
}
die("Вы скончались \n" . "За свою жизнь Вы наплодили $children себе подобных.\n");

sub dead{
(rand(100) == rand(100)) ? return 1 : return 0;
}