Boostering for IO::All today. From its POD, the one line webserver.

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