use Win32::Fonts::Info;

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

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