sub DESTROY
{
    local ($!, $?);
    my $output = `some_additional_cleanup 2>&1`;
    ...
}