gistfile1.pl

get '/fortunes' => sub {
    my $self = shift;
    $sth1->execute();
    my $fortunes = $sth1->fetchall_arrayref({});
    push @$fortunes, { id => 0, message => 'Additional fortune added at request time.' };
    $self->template( 'fortunes', { fortunes => [ sort { $a->{message} cmp $b->{message} } @$fortunes] } );
};