use strict;
use warnings;
use Win32::PEFile;

my $filename = 'c:/windows/notepad.exe';
my $pe = Win32::PEFile->new (-file => $filename);
my $strings = $pe->getVersionStrings ();

printf "%-20s %s\n", $_, $strings->{$_} for sort keys %$strings;

my $values = $pe->getFixedVersionValues();

printf "%-20s 0x%08x\n", $_, $values->{$_} for sort keys %$values;