#!/usr/bin/env perl
package App;
use Dancer2;

set session => 'YAML';

get '/' => sub {
    my $value = session( 'some.var' ) || 0;
    $value++;
    session 'some.var' => $value;
    return "The current value is $value";
};

start;

##</code><code>##