http://www.perlmonks.org?node_id=133897


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;