diff --git a/modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java b/modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java
index 9062c2722d7..b25e4490e85 100644
--- a/modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java
+++ b/modules/swagger-codegen/src/main/java/com/wordnik/swagger/codegen/languages/PerlClientCodegen.java
@@ -57,7 +57,6 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
     additionalProperties.put("artifactVersion", artifactVersion);
 
     languageSpecificPrimitives.add("int");
-    languageSpecificPrimitives.add("Math::BigInt");
     languageSpecificPrimitives.add("double");
     languageSpecificPrimitives.add("string");
     languageSpecificPrimitives.add("boolean");
@@ -66,7 +65,7 @@ public class PerlClientCodegen extends DefaultCodegen implements CodegenConfig {
     languageSpecificPrimitives.add("HASH");
 
     typeMapping.put("integer", "int");
-    typeMapping.put("long", "Math::BigInt");
+    typeMapping.put("long", "int");
     typeMapping.put("float", "double");
     typeMapping.put("double", "double");
     typeMapping.put("boolean", "boolean");
diff --git a/modules/swagger-codegen/src/main/resources/perl/BaseObject.mustache b/modules/swagger-codegen/src/main/resources/perl/BaseObject.mustache
index 7ae05c07585..b4a7885a798 100644
--- a/modules/swagger-codegen/src/main/resources/perl/BaseObject.mustache
+++ b/modules/swagger-codegen/src/main/resources/perl/BaseObject.mustache
@@ -65,7 +65,7 @@ sub _deserialize {
       
   if ($type eq 'DateTime') {
     return DateTime->from_epoch(epoch => str2time($data));
-  } elsif ( grep( /^$type$/, ('int', 'Math::BigInt', 'double', 'string', 'boolean'))) {
+  } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
     return $data;
   } else { # hash(model)
     my $_instance = eval "WWW::{{invokerPackage}}::Object::$type->new()";
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/BaseObject.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/BaseObject.pm
index d1146ec4536..c4fd4e6aece 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/BaseObject.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/BaseObject.pm
@@ -65,7 +65,7 @@ sub _deserialize {
       
   if ($type eq 'DateTime') {
     return DateTime->from_epoch(epoch => str2time($data));
-  } elsif ( grep( /^$type$/, ('int', 'Math::BigInt', 'double', 'string', 'boolean'))) {
+  } elsif ( grep( /^$type$/, ('int', 'double', 'string', 'boolean'))) {
     return $data;
   } else { # hash(model)
     my $_instance = eval "WWW::SwaggerClient::Object::$type->new()";
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Category.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Category.pm
index d72dc2c78c7..857dccdce5a 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Category.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Category.pm
@@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
 #
 
 my $swagger_types = {
-      'id' => 'Math::BigInt',
+      'id' => 'int',
       'name' => 'string'
 };
 
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Order.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Order.pm
index d76d03d8d3b..35449647e13 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Order.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Order.pm
@@ -20,8 +20,8 @@ use base "WWW::SwaggerClient::Object::BaseObject";
 #
 
 my $swagger_types = {
-      'id' => 'Math::BigInt',
-      'pet_id' => 'Math::BigInt',
+      'id' => 'int',
+      'pet_id' => 'int',
       'quantity' => 'int',
       'ship_date' => 'DateTime',
       'status' => 'string',
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Pet.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Pet.pm
index ddcc0793f23..df32665e826 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Pet.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Pet.pm
@@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
 #
 
 my $swagger_types = {
-      'id' => 'Math::BigInt',
+      'id' => 'int',
       'category' => 'Category',
       'name' => 'string',
       'photo_urls' => 'ARRAY[string]',
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Tag.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Tag.pm
index 79f259340ba..35850032d5c 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Tag.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/Tag.pm
@@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
 #
 
 my $swagger_types = {
-      'id' => 'Math::BigInt',
+      'id' => 'int',
       'name' => 'string'
 };
 
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/User.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/User.pm
index bc8971fb5e2..88a396ece3a 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/User.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/Object/User.pm
@@ -20,7 +20,7 @@ use base "WWW::SwaggerClient::Object::BaseObject";
 #
 
 my $swagger_types = {
-      'id' => 'Math::BigInt',
+      'id' => 'int',
       'username' => 'string',
       'first_name' => 'string',
       'last_name' => 'string',
diff --git a/samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm b/samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm
index b1985703ddd..930bd52102b 100644
--- a/samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm
+++ b/samples/client/petstore/perl/lib/WWW/SwaggerClient/PetApi.pm
@@ -279,7 +279,7 @@ sub new {
     #
     # Find pet by ID
     # 
-    # @param Math::BigInt $pet_id ID of pet that needs to be fetched (required)
+    # @param int $pet_id ID of pet that needs to be fetched (required)
     # @return Pet
     #
     sub get_pet_by_id {
@@ -411,7 +411,7 @@ sub new {
     # Deletes a pet
     # 
     # @param string $api_key  (required)
-    # @param Math::BigInt $pet_id Pet id to delete (required)
+    # @param int $pet_id Pet id to delete (required)
     # @return void
     #
     sub delete_pet {
@@ -472,7 +472,7 @@ sub new {
     #
     # uploads an image
     # 
-    # @param Math::BigInt $pet_id ID of pet to update (required)
+    # @param int $pet_id ID of pet to update (required)
     # @param string $additional_metadata Additional data to pass to server (required)
     # @param file $file file to upload (required)
     # @return void
diff --git a/samples/client/petstore/perl/test.pl b/samples/client/petstore/perl/test.pl
index 2c545c7aac9..eb06f786f98 100755
--- a/samples/client/petstore/perl/test.pl
+++ b/samples/client/petstore/perl/test.pl
@@ -15,7 +15,7 @@ use DateTime;
 
 my $api = WWW::SwaggerClient::PetApi->new();
 
-my $pet_id = 88;
+my $pet_id = 10008;
 
 my $category =  WWW::SwaggerClient::Object::Category->new('id' => '2', 'name' => 'perl');
 my $tag =  WWW::SwaggerClient::Object::Tag->new('id' => '1', 'name' => 'just kidding'); 
@@ -30,7 +30,7 @@ $new_pet = $new_pet->from_hash($pet->to_hash);
 print "new_pet(hash):".Dumper($new_pet->to_hash);
 
 print "\nTest Petstore endpoints\n";
-print "\nupload_file:".Dumper $api->upload_file(pet_id => $pet_id, additional_metadata => 'testabc', file => '/var/tmp/f5.jpg');
+print "\nupload_file:".Dumper $api->upload_file(pet_id => $pet_id, additional_metadata => 'testabc', file => './test.pl');
 print "\nadd_pet:".Dumper $api->add_pet(body => $pet);
 print "\nget_pet_by_id:".Dumper $api->get_pet_by_id(pet_id => $pet_id);
 print "\nupdate_pet_with_form:".Dumper $api->update_pet_with_form(pet_id => $pet_id, name => 'test_name', status => 'test status');