#!perl

use strict;
use warnings;
use utf8;
use Data::Dumper qw/Dumper/;
use Win32::Fonts::Info;

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

print Dumper($F);
exit(0);