sub ticklist2 {

    my $self = shift;

    my $msg = '';

    my $data = $self->req->json;

    $self->app->log->debug( 'JSON: '.Dumper($data) );

    $msg = scalar(keys %{$data->{data}}) . ' Ids uploaded';

    my $w;
    my $h;
    my $stream;
    eval {

        if ( $self->param('src') eq 'sysnottest' ) {

            use Fcntl;

            sysopen($h, '/tmp/JD', O_NONBLOCK | O_RDONLY);

            $stream = Mojo::IOLoop::Stream->new( $h );

            $self->app->log->info('HELLO WORLD ' . $stream->reactor->is_running);

            $stream->on('read' => sub {
                                        my ( $stream, $data ) = @_;
                                        $self->app->log->info( 'DATA ' . $data );
                                    });
            $stream->timeout(500);
            $stream->start;

            $stream->reactor->start unless $stream->reactor->is_running;
        }
        else {
            die "src parameter is missing. Aborted\n";
        }
    };

    if ( my $err = $@ ) {
        $self->app->log->error($err);
        return $self->render( json => { msg => $err }, status => 418 );
    }

    $self->render( json => { msg => $msg } );

} # ticklist2