Select Code to Download

#!/usr/bin/perl
use warnings;
...
        print "  " x ($depth - $_[0]->getHeight()), $_[0]->getNodeValu
+e(), "\n";
    }
);

  R
    S1
...
      H1
    S2
      H3