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

##</code><code>##

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

##</code><code>##

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