#!/usr/bin/env plackup

use strict;
use warnings;
use Data::Dumper;
use Plack::Request;
use Plack::Response;

my $app = sub {

    my $req = Plack::Request->new( shift );
    my $q = $req->parameters;
    my $navn = $q->{navn};
    my $navn2 = $q->{navn2};
    my $adj1 = $q->{adj1};
    my $bann1 = $q->{bann1};

    my $res = Plack::Response->new( 200 );
    $res->body( $readystory );
    $res->finalize;
};