my $language;
my $exe = Win32::Exe->new( $name[$object_id] );
my $vi = $exe->version_info();
if (defined $vi) {
  # To load the variable used below.
  $vi->get('OriginalFilename'); 
  $language = hex substr $vi->{'cur_trans'}, 0, 4;
  # $language is now the language IN DECIMAL.
  # To get a hex number, drop the 'hex' before the substr.
}

# use $language if it's defined.
...