gistfile1.txt

sub register-to-rmdir($path) {
    state @paths;
    @paths.push($path);
    END { for @paths -> $path { rmdir $path } }
}