#! perl -slw
use strict;
use Win32::API::Prototype;

ApiLink( 
	'kernel32',
	'UINT GetTempFileName(
	  LPCTSTR lpPathName,
	  LPCTSTR lpPrefixString,
	  UINT uUnique,
	  LPTSTR lpTempFileName
	)'
) or die $^E;

my $tempFileName = ' ' x 254;
my $path = '.';
my $prefix = 'temp0000';

GetTempFileName( $path, $prefix, 0, $tempFileName ) or die $^E;

print $tempFileName;