Editing File: /usr/share/doc/perl-Test-Harness-3.28/examples/harness-hook/hook.pl