Select Code to Download

#!perl -w
use strict;
...
  );
  print Data::Dumper->Dump([\%results], ['results']);
}

$results = {
             'nodeValue' => [
...
             'textContent' => undef,
             'innerHTML' => undef
           };