package Foo;
sub new { bless {} }
sub DESTROY { print "DESTROY()\n" }

package main;

my $foo = Foo->new();
print "I have a foo.\n";

END { print "END()\n" }

exit;
__END__
I have a foo.
DESTROY()
END()