do { $fn = tmpnam() }
    until open ...
END { unlink($fn) or die "Couldn't unlink $name : $!" }