File::Temp is probably the best place to start.

use constant TEMP_FILENAME_TEMPLATE=>File::Spec::Unix::tmpdir() . "myt
+mp_XXXXXXX';

    my ($tempfh, $tempFilename) = File::Temp::tempfile( TEMP_FILENAME_
+TEMPLATE,
                                                       UNLINK=>1);
    # Write the job text to the temp file.
    print $tempfh $resultJobText;

    # Close the file (flush)
    close($tempfh);
[download]