Select Code to Download

        {
            $visible++;
            syswrite STDOUT, $forest[$current][$i] . 'V';
            usleep 100000;
            next;
        }

#!/usr/bin/perl
use strict;
use warnings;
...
  }
}
print "Visible $v of $ni x $nj\n";