#!/usr/bin/env perl
use Mojolicious::Lite;
get '/' => sub {
my ($c) = @_;
my $fortune = `fortune`;
$c->render(fortune => $fortune)
} => 'index';
app->start();