diff --git a/samples/client/petstore/perl/README.md b/samples/client/petstore/perl/README.md
index 32e5e359b1d..ba89cad4214 100644
--- a/samples/client/petstore/perl/README.md
+++ b/samples/client/petstore/perl/README.md
@@ -221,12 +221,12 @@ Each of these calls returns a hashref with various useful pieces of information.
 
 To load the API packages:
 ```perl
+use WWW::SwaggerClient::AnotherFakeApi;
 use WWW::SwaggerClient::FakeApi;
 use WWW::SwaggerClient::FakeClassnameTags123Api;
 use WWW::SwaggerClient::PetApi;
 use WWW::SwaggerClient::StoreApi;
 use WWW::SwaggerClient::UserApi;
-use WWW::SwaggerClient::AnotherfakeApi;
 
 ```
 
@@ -279,12 +279,12 @@ use lib 'lib';
 use strict;
 use warnings;
 # load the API package
+use WWW::SwaggerClient::AnotherFakeApi;
 use WWW::SwaggerClient::FakeApi;
 use WWW::SwaggerClient::FakeClassnameTags123Api;
 use WWW::SwaggerClient::PetApi;
 use WWW::SwaggerClient::StoreApi;
 use WWW::SwaggerClient::UserApi;
-use WWW::SwaggerClient::AnotherfakeApi;
 
 # load the models
 use WWW::SwaggerClient::Object::AdditionalPropertiesClass;
@@ -331,14 +331,14 @@ use WWW::SwaggerClient::;
 my $api_instance = WWW::SwaggerClient::->new(
 );
 
-my $body = WWW::SwaggerClient::Object::OuterBoolean->new(); # OuterBoolean | Input boolean as post body
+my $body = WWW::SwaggerClient::Object::Client->new(); # Client | client model
 
 eval {
-    my $result = $api_instance->fake_outer_boolean_serialize(body => $body);
+    my $result = $api_instance->test_special_tags(body => $body);
     print Dumper($result);
 };
 if ($@) {
-    warn "Exception when calling FakeApi->fake_outer_boolean_serialize: $@\n";
+    warn "Exception when calling AnotherFakeApi->test_special_tags: $@\n";
 }
 
 ```
@@ -349,6 +349,7 @@ All URIs are relative to *http://petstore.swagger.io:80/v2*
 
 Class | Method | HTTP request | Description
 ------------ | ------------- | ------------- | -------------
+*AnotherFakeApi* | [**test_special_tags**](docs/AnotherFakeApi.md#test_special_tags) | **PATCH** /another-fake/dummy | To test special tags
 *FakeApi* | [**fake_outer_boolean_serialize**](docs/FakeApi.md#fake_outer_boolean_serialize) | **POST** /fake/outer/boolean | 
 *FakeApi* | [**fake_outer_composite_serialize**](docs/FakeApi.md#fake_outer_composite_serialize) | **POST** /fake/outer/composite | 
 *FakeApi* | [**fake_outer_number_serialize**](docs/FakeApi.md#fake_outer_number_serialize) | **POST** /fake/outer/number | 
@@ -378,7 +379,6 @@ Class | Method | HTTP request | Description
 *UserApi* | [**login_user**](docs/UserApi.md#login_user) | **GET** /user/login | Logs user into the system
 *UserApi* | [**logout_user**](docs/UserApi.md#logout_user) | **GET** /user/logout | Logs out current logged in user session
 *UserApi* | [**update_user**](docs/UserApi.md#update_user) | **PUT** /user/{username} | Updated user
-*AnotherfakeApi* | [**test_special_tags**](docs/AnotherfakeApi.md#test_special_tags) | **PATCH** /another-fake/dummy | To test special tags
 
 
 # DOCUMENTATION FOR MODELS
diff --git a/samples/client/petstore/perl/docs/AnotherfakeApi.md b/samples/client/petstore/perl/docs/AnotherfakeApi.md
index 29a06be2e94..c4895883184 100644
--- a/samples/client/petstore/perl/docs/AnotherfakeApi.md
+++ b/samples/client/petstore/perl/docs/AnotherfakeApi.md
@@ -1,15 +1,15 @@
-# WWW::SwaggerClient::AnotherfakeApi
+# WWW::SwaggerClient::AnotherFakeApi
 
 ## Load the API package
 ```perl
-use WWW::SwaggerClient::Object::AnotherfakeApi;
+use WWW::SwaggerClient::Object::AnotherFakeApi;
 ```
 
 All URIs are relative to *http://petstore.swagger.io:80/v2*
 
 Method | HTTP request | Description
 ------------- | ------------- | -------------
-[**test_special_tags**](AnotherfakeApi.md#test_special_tags) | **PATCH** /another-fake/dummy | To test special tags
+[**test_special_tags**](AnotherFakeApi.md#test_special_tags) | **PATCH** /another-fake/dummy | To test special tags
 
 
 # **test_special_tags**
@@ -22,8 +22,8 @@ To test special tags
 ### Example 
 ```perl
 use Data::Dumper;
-use WWW::SwaggerClient::AnotherfakeApi;
-my $api_instance = WWW::SwaggerClient::AnotherfakeApi->new(
+use WWW::SwaggerClient::AnotherFakeApi;
+my $api_instance = WWW::SwaggerClient::AnotherFakeApi->new(
 );
 
 my $body = WWW::SwaggerClient::Object::Client->new(); # Client | client model
@@ -33,7 +33,7 @@ eval {
     print Dumper($result);
 };
 if ($@) {
-    warn "Exception when calling AnotherfakeApi->test_special_tags: $@\n";
+    warn "Exception when calling AnotherFakeApi->test_special_tags: $@\n";
 }
 ```
 
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/AnotherfakeApi.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/AnotherfakeApi.pm
index 48debee7dd1..7fc43d1c156 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/AnotherfakeApi.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/AnotherfakeApi.pm
@@ -17,7 +17,7 @@ Generated by: https://github.com/swagger-api/swagger-codegen.git
 # Do not edit the class manually.
 # Ref: https://github.com/swagger-api/swagger-codegen
 #
-package WWW::SwaggerClient::AnotherfakeApi;
+package WWW::SwaggerClient::AnotherFakeApi;
 
 require 5.6.0;
 use strict;