#!/usr/bin/env perl

use Mojolicious::Lite;

get '/' => sub {
    my ($c) = @_;
    my $fortune = `fortune`;
    
    $c->render(fortune => $fortune)
} => 'index';

app->start();