I didn't come up with this, just grabbed it from somewhere, maybe the Fun With Perl mailing list?

perl -e 'sub DESTROY { warn "Too late for regrets" } $_=bless []'
[download]

YuckFoo