pull in tempfile() from perl's test.pl