Perl script with tree depth limiter