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