view release on metacpan or  search on metacpan

t/bin/split-in-chunks.psgi  view on Meta::CPAN

#!/usr/bin/env perl
# need Starman to produce chunked response.
#  starman --worker 4 t/bin/split-in-chunks.psgi
## perl -E 'print "GET / HTTP/1.1\r\nHost: localhost\r\n\r\n"' | nc localhost 5000

use strict;
use warnings;

my $epic_graph = <<TEXT;
    If they just went straight they might go far,
    They are strong and brave and true;
    But they're always tired of the things that are,
    And they want the strange and new.