Getting CPU ID Serial Number in Perl for win32

Question

How to get CPU/Processor serial number or unique ID in perl for windows machine without using any modules, probably using syscalls or something?

Answer 1

http://metacpan.org/pod/Win32::SystemInfo. Without modules you can learn source code of this module and use it. You will see that module imports function GetSystemInfo from kernel32.dll and than uses it, you can do it in the same way