22:55 >perl 552c_SoPW.pl
Begin bar()
Foo::DESTROY(first)
-End- bar()
Back in main (1)
Begin baz()
Foo::DESTROY(second)
Before FREETMPS
-End- baz()
Back in main (2)

22:56 >