{
    my $fn;
    do { $fn = tmpnam() }
        until open ...;
    END {
        unlink $fn or warn "Couldn't remove '$fn': $!";
    };
};