gistfile1.txt

#!/usr/bin/env perl

use Mojolicious::Lite;
use Cwd;

@ARGV = qw(daemon --listen http://*:5000);

app->static->paths->[0] = getcwd;

# needed to setup the usual index.html landing
any '/' => sub {
  shift->render_static('index.html');
};

app->start;