use strict;
use warnings;
use Win32::Fonts::Info;

my $F=Win32::Fonts::Info->new() or die $!;
my $truetypefonts = $F->GetTrueTypeFonts() or die $!;

foreach (keys %{$truetypefonts})
  {
    print $_ . "=" . %{$truetypefonts}->{$_} . "\n";
  }