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