in reply to perl one-liner to serve httpd current directory

A couple more. Plack::App::Directory is what I usually use–

plackup -MPlack::App::Directory -e 'Plack::App::Directory->new({root = +> q{.}})->to_app'

This (not necessarily recommended but good to know about) IO::All recipe does executables like CGIs too–

perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 +? "./$1 |" : $1) if /^GET \/(.*) / })'

Update: because that verbosity is off-putting, I'd like to add that I use the first as this alias.

moo@cow[36]~>which www www: aliased to plackup -p 5000 -MPlack::App::Directory -e 'Plack::App +::Directory->new({root => q{.}})->to_app'