#!/usr/bin/env perl

use Mojolicious::Lite;
use Karl;

my $moo = Karl->new();

get '/foo' => sub {
    my $c = shift;
    my $params->{nose} = $c->param('nose');
    $c->render( text => $moo->nose($params) );
};

app->start;

__END__