Help for this page

Select Code to Download

Select or download this

sub printit {
  # print the hash
...
  }
  print "\n======== END $label =========\n";
}