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));
}