#!perl

use strict;
use warnings;
use utf8;

$|=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 );