Publish directory via HTTP using plack

publish-dir.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Getopt::Std;

my $opts = {
  s => 'Standalone',
  h => '0.0.0.0',
  p => 5000,
  d => '.',
  t => 60,
};

{
  local $SIG{__WARN__} = sub { die "$@" };
  getopts('d:h:p:s:t:', $opts);
};

my $engine  = $opts->{s};
my $host    = $opts->{h};
my $dir     = $opts->{d};
my $port    = $opts->{p};
my $timeout = $opts->{t};

exec 'plackup', '-s', $engine, '--host', $host, '--port', $port, 
  '-e', "use Plack::App::Directory; Plack::App::Directory->new({root=>'$dir'})->to_app";