diff --git a/modules/openapi-generator/src/main/resources/perl/ApiClient.mustache b/modules/openapi-generator/src/main/resources/perl/ApiClient.mustache
index 7f87d12ffcb..30cad76b423 100644
--- a/modules/openapi-generator/src/main/resources/perl/ApiClient.mustache
+++ b/modules/openapi-generator/src/main/resources/perl/ApiClient.mustache
@@ -109,16 +109,13 @@ sub call_api {
 
     }
     elsif ($method eq 'GET') {
-        my $headers = HTTP::Headers->new(%$header_params);
         $_request = GET($_url, %$header_params);
     }
     elsif ($method eq 'HEAD') {
-        my $headers = HTTP::Headers->new(%$header_params);
-        $_request = HEAD($_url,%$header_params);
+        $_request = HEAD($_url,%$header_params); 
     }
     elsif ($method eq 'DELETE') { #TODO support form data
-        my $headers = HTTP::Headers->new(%$header_params);
-        $_request = DELETE($_url, %$headers);
+        $_request = DELETE($_url, %$header_params);
     }
     elsif ($method eq 'PATCH') { #TODO
     }
diff --git a/samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiClient.pm b/samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiClient.pm
index 5e6c766c7c4..ca783c1c964 100644
--- a/samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiClient.pm
+++ b/samples/client/petstore/perl/lib/WWW/OpenAPIClient/ApiClient.pm
@@ -122,16 +122,13 @@ sub call_api {
 
     }
     elsif ($method eq 'GET') {
-        my $headers = HTTP::Headers->new(%$header_params);
         $_request = GET($_url, %$header_params);
     }
     elsif ($method eq 'HEAD') {
-        my $headers = HTTP::Headers->new(%$header_params);
-        $_request = HEAD($_url,%$header_params);
+        $_request = HEAD($_url,%$header_params); 
     }
     elsif ($method eq 'DELETE') { #TODO support form data
-        my $headers = HTTP::Headers->new(%$header_params);
-        $_request = DELETE($_url, %$headers);
+        $_request = DELETE($_url, %$header_params);
     }
     elsif ($method eq 'PATCH') { #TODO
     }