как уйти от циклической рекурсии?

ты подожди макс 10 мин - процесс будет убит

$failsafe = 0;

while ( $flag && ($failsafe++ < 999999) )
{
  ...
}

а вот перл:

my $failsafe = 0;

while ( $flag && ($failsafe++ < 999999) ) { ... }