A small static file server with a default index file, in Mojolicious

mojo_static_with_default_index.pl

#!/Users/brian/bin/perls/perl5.20.0

use v5.10;

say "ARGV is @ARGV";

use Mojolicious::Lite;

my $default_index = 'index.html';

app->static->paths->[0] = $ARGV[1];

app->hook(
	before_dispatch => sub {
		my $c = shift;
		state $base = $ARGV[1];
		my $url_path = $c->req->url;
		my $path = "$base$url_path";
		if( -d $path ) {
			$url_path .= '/' unless $path =~ m|/\z|;
			$url_path .= $default_index;
			$c->req->url->path( $url_path );
			}
		}
	);

any '/' => sub {
	shift->reply->static('index.html');
};

app->start;