Serve static files from current working directory

httpme

#!/usr/bin/perl

# Usage: httpme
# Serve static files from current working directory

use Cwd;
use Plack::Runner;
use Plack::App::Directory;

my $runner = Plack::Runner -> new;
my $app = Plack::App::Directory -> new({root => getcwd}) -> to_app;

$runner -> parse_options(@ARGV);

$runner -> run($app);