#!/usr/bin/perl
use Win32::Exe   qw( );
my $remexe ='C:\Users\some.exe';
$remexe =~ tr|\\|/|;

my $exe = Win32::Exe->new($remexe);
$exe = $exe->create_resource_section if $exe->can_create_resource_section;

my $info = $exe->get_version_info;
print qq($_ = $info->{$_}\n) for (sort keys(%$info));