in reply to Unique filename

I recommend File::Temp for a better version of this wheel.

In Section Cool Uses for Perl