package Foo;
use vars qw/$delHook/;

$delHook = undef;