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