use strict;
use warnings;
$|=1;
use Win32API::Registry qw( :ALL );
my ($key, $uIndex, $name, $nameLength, $type, $data, $dataLength );
my $ok=RegOpenKeyEx( HKEY_LOCAL_MACHINE , "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts", 0, KEY_READ, $key );
if($key){
        my $uIndex=0;
        do{
                RegEnumValue ( $key, $uIndex, $name, $nameLength, [], $type, $data, $dataLength );
                print "$name=$data\r\n";
                $uIndex++;
                }
        while(!regLastError());
        }
RegCloseKey( $key );