use Win32::API::Prototype;;
ApiLink( 
    'kernel32', 
    'DWORD GetEnvironmentVariable( LPTSTR n, LPTSTR b, DWORD s )' 
) or warn $^E;;
$buffer = chr( 0 ) x 32767; 
$chars = GetEnvironmentVariable( 'PROCESSOR_IDENTIFIER', $buffer, 32767 ); 
print substr $buffer, 0, $chars;;

x86 Family 15 Model 2 Stepping 9, GenuineIntel