use strict;
use warnings;
use 5.12.0;


sub count_down {
   my ($a)=@_;
   say --$a;
   goto EXIT unless $a;
   count_down($a)
}


count_down(10);

say "never reached";

EXIT:
say "byebye";