sub DESTROY { my $output = `some_additional_cleanup 2>&1`; ... }