...

/usr/share/doc/perl-Test-Harness/examples/harness-hook/lib/Harness/Hook.pm