use tempfile() for _fresh_perl()