perl -e "sub IO::Handle::DESTROY { print("""destroying $_[0]\n""") } $a=bless([]);"