1 files changed, 10 insertions, 0 deletions
diff --git a/test/perl/delayed_response/psgi.pl b/test/perl/delayed_response/psgi.pl
new file mode 100644
index 00000000..f934c3a7
--- /dev/null
+++ b/test/perl/delayed_response/psgi.pl
@@ -0,0 +1,10 @@
+my $app = sub {
+    my ($environ) = @_;
+
+    return sub {
+        (my $responder = shift)->([200, [
+            'Content-Type' => 'text/plain',
+            'Content-Length' => '12'
+        ], ["Hello World!"]]);
+    }
+};