#!/usr/bin/perl
use strict;
use warnings;
use Win32::PEFile;

my $pe = Win32::PEFile->new(-file => 'C:\Perl\bin\perl.exe');
my $verStrs = $pe->getVersionStrings();

print "$_: '$verStrs->{$_}'\n" for keys %$verStrs;