うちの場合の現在
use Kozukuri;
if ($ore || $yome){
 sex();
 while($yome){
  sex();
 }
}

ケコーン前は・・・
use Condome;
for ($gomu=0;$gomu<5;$gomu++){
last unless ($yome);
$gomu+=sex();
}