use strict;
use warnings;

print "$^V\n";
recurse(20000);
exit;

sub recurse {
    my ($count) = @_;

    recurse($count - 1) if $count;
}

##</code><code>##

v5.32.1