#!/usr/bin/perl

use strict;
use warnings;

use Mojolicious::Lite;
use Mojo::Util qw/files/;

get '/' => sub {
    my ($self) = @_;

    my @files = files $self->app->home . '/public/data/blog';

    $self->stash( files => \@files );
    $self->render('index');
};

app->start;

@@index.html.ep
<h1>Dateien:</h1>
<ul>
% for my $file ( @{$files} ) {
  <li>$file</li>
% }
</ul>