...

# It is an inside_out object, so 
#parameters are in %name hashes.
  } elsif ( $name[$object_id] =~ m{\.dll\z}sm ) {

    my ( undef, undef, $filename ) =
      splitpath($name[$object_id] );

    # Check for a version resource.
    # Also check for a version number inside that resource.

    if (defined $version_number) {

      my $language = $version_resource->languagecode;

      $answer =
        q{<File Id='F_}        . $id[$object_id]
      . q{' Source='}          . $filename
      . q{' DefaultLanguage='} . $language 
      . q{' />};

    } else {

      $answer =
        q{<File Id='F_}        . $id[$object_id]
      . q{' Source='}          . $filename
      . q{' />};
    }
  } else {

...