#!perl
use strict;
use Win32::TieRegistry;
$Registry->Delimiter("/"); # Set delimiter to "/".
$|=1;
my $fontskey = $Registry->{"LMachine/SOFTWARE/Microsoft/Windows NT/CurrentVersion/Fonts"} || die $^E;
for my $val ($fontskey->ValueNames)
{
    print "$val\n";
}
exit;