gistfile1.txt

sub foo($cpt) {
  return if $cpt == 0;
  {
        say "Before repeat";
        repeat {
          say "after repeat";
          foo($cpt - 1)
        } while False;
   }
}

foo(3);