...

/usr/share/doc/perl-Test-Harness/examples/harness-hook/hook.pl