Help for this page

Select Code to Download

Select or download this

my $printsub = sub {
  my $node = shift;
...
  } 
  return 0;
}