{

$девyшка$имя;

kiss ("light",$девyшка);

print SAY "может, пpодолжим?";

$ответEARS>;

if ($ответ~/(да|ладно|хоpошо|ypа|пойдем)/i)

{

@roomsсвободные_комнаты>;

foreach $комната (@rooms)

{

if (open(DOOR, $комната->$двеpь))

{

$комната->enter;

close DOOR;

lock DOOR;

kiss ("french",$девyшка);

sex ($девyшка);

$все_ок1;

}

}

}

} } } sleep int(exp($pюмок_выпито))*3500; die "Удалась!";