xref: /unit/pkg/rpm/rpmbuild/SOURCES/unit.example-perl-app (revision 524:7eef37b824b3)
1#!/usr/bin/env perl
2
3use Data::Dumper;
4
5my $app = sub {
6      my $env = shift;
7      return [
8          '200',
9          [ 'Content-Type' => 'text/plain' ],
10          [ "Hello from Unit, Perl $^V, environment:\n\n", Dumper($env) ],
11      ];
12};
13