#!/usr/bin/perl

use Mojolicious::Lite;

get '/add_news' => sub {
    
    my $self = shift;
    my $offset = $self->param('offset') // 0;
        
    if ( $offset > 9 ) {
        $self->render(text => "offset = $offset\n");
    } else {
        $self->redirect_to('/add_news?offset=10');
    }    
};

app->start;

##</code><code>##

[Tue Jun 18 23:24:49 2013] [info] Listening at "http://*:3000".
Server available at http://127.0.0.1:3000.
[Tue Jun 18 23:24:57 2013] [debug] Your secret passphrase needs to be changed!!!
[Tue Jun 18 23:24:57 2013] [debug] GET /add_news (Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20130618 Firefox/24.0).
[Tue Jun 18 23:24:57 2013] [debug] Routing to a callback.
[Tue Jun 18 23:24:57 2013] [debug] 200 OK (0.000952s, 1050.420/s).
[Tue Jun 18 23:25:00 2013] [debug] GET /add_news (Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20130618 Firefox/24.0).
[Tue Jun 18 23:25:00 2013] [debug] Routing to a callback.
[Tue Jun 18 23:25:00 2013] [debug] 302 Found (0.000915s, 1092.896/s).
[Tue Jun 18 23:25:00 2013] [debug] GET /add_news (Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20130618 Firefox/24.0).
[Tue Jun 18 23:25:00 2013] [debug] Routing to a callback.
[Tue Jun 18 23:25:00 2013] [debug] 200 OK (0.000518s, 1930.502/s).

##</code><code>##

curl http://127.0.0.1:3000/add_news?offset=10
and
curl http://127.0.0.1:3000/add_news?offset=2