in reply to Win32-API-Guid
libwin32 0.18 which is bundled with the latest ActivePerl has a function ( Win32::GuidGen() ) which generates GUIDs using the API.
See http://search.cpan.org/doc/GSAR/libwin32-0.18/Changes
Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;
In Section
Code Catacombs