Another demo 

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

my $app = sub {
    my($env) = @_;

    return [
        200,
        [ 'Content-type' => 'text/plain' ],
        [ Dumper($env) ]
    ];
};