use Data::Dumper qw( Dumper );
use Win32::Exe   qw( );

my $exe = Win32::Exe->new('c:/windows/notepad.exe');
my $version_info = $exe->get_version_info();

{
    local $Data::Dumper::Useqq  = 1;
    local $Data::Dumper::Indent = 1;
    print(Dumper($version_info));
}

##</code><code>##

$VAR1 = {
  "FileDescription" => "Notepad",
  "LegalCopyright" => "\251 Microsoft Corporation. All rights reserved.",
  "FileVersion" => "6.1.7600.16385",
  "CompanyName" => "Microsoft Corporation",
  "ProductVersion" => "6.1.7600.16385",
  "ProductName" => "Microsoft\256 Windows\256 Operating System",
  "OriginalFilename" => "NOTEPAD.EXE",
  "InternalName" => "Notepad"
};