#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
    my ($c)     = @_;
    my $fortune = `fortune` || "huh??\n";
    
    $c->render(fortune => $fortune)
} => 'index';

get '/die';

get '/me';

get '/news';

app->start();