#!/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;

##</code><code>##

CompanyName = 'ActiveState'
FileDescription = 'Perl Command Line Interpreter'
FileVersion = '5,16,3,1603'
InternalName = 'perl.exe'
LegalCopyright = 'Copyright 1987-2011, Larry Wall, Binary build by ActiveState, http://www.ActiveState.com'
LegalTrademarks = ''
OriginalFilename = 'perl.exe'
ProductName = 'ActivePerl'
ProductVersion = 'Build 1603 [296746]'