Select Code to Download

#!/usr/bin/perl
use warnings;
...
my $root    = $grammar->parse(\$input, 'Element');

($$root)->dump();

    1
  *
...
    3
  *
    4