gistfile1.txt

sub ATEXIT(&code) {
    state @blocks;
    @blocks.push(&code);
    END { for @blocks -> &code { &code() } }
}

for <foo bar> -> $path {
    mkdir $path;
    ATEXIT { rmdir $path }
    # register-to-rmdir($path);
}

say "foo".IO ~~ :d;