Select Code to Download

package Foo;
use vars qw/$delHook/;

$delHook = undef;

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

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