#!/usr/bin/perl
# run with
#   plackup <script file>
use strict;
use warnings;
 
my $app = sub {
  return [
    '200',
    [ 'Content-Type' => 'text/html' ],
    [ 42 ],
  ];
};