$ cat /tmp/Foo.pm 
package Foo;
sub DESTROY { print "DESTROY\n" }
my $a = bless {};
print "executing Foo\n";

$ perl -I/tmp -e'use Foo; BEGIN { print "BEGIN\n" }'
executing Foo
DESTROY
BEGIN