perl - C:\WINDOWS\Fonts\arial.ttf C:\WINNT\Fonts\arial.ttf
use strict;
use Font::TTF::Font;
use Data::Dumper;

for $ARGV(@ARGV) {
    my $f = Font::TTF::Font->open($ARGV)
        or warn "couldn't open $ARGV $!" and next;
#    print Dumper $f;
    print "say what now? ", $f->{'hmtx'}->read->{'advance'}[0x0020];
}

__END__
couldn't open C:\WINDOWS\Fonts\arial.ttf No such file or directory at - line 6.
say what now? 1196