sub testFunc{
     my $i = 0;
     $i++;
     testFunc();
}