use File::Temp ':mktemp';

    my ($fh, $filename) = mkstemp( "filename.XXXX" );

    print $filename, "\n";