use Scope::Guard;
    sub teardown {
        #...  ここに teardown でやりたい終了処理を入れる
    }

    sub startup {
        #... ここに startup でやりたい初期化処理を入れる
        return Scope::Guard->new(\&teardown);
    }

    subtest 'テストケース1', sub {
        my $guard = startup();
        #...以下テストケースを実施
    };