package Foo;
use vars qw/$delHook/;

$delHook = undef;

##</code><code>##

$Foo::delHook = \&somehook; # or just $delHook if exported

##</code><code>##

$delHook->(any_arguments_here) if defined $delHook;