#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Mojolicious::Lite;

get '/' => sub {
  
  my $q = shift;
  
  $q->render(
    text   => Dumper($q->req->headers),
    format => 'plain'
  );
  
};

app->start;