«Hace unas semanas le mostraba a mi amigo Joel un one-liner de Perl que implementaba un servidor web, tal vez tenía mucho trabajo que hacer porque no pareció sorprendido por esta fantástica línea de perl que usa el módulo IO::All:
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_ < io(-x $1 ? "./$1 |" : $1) if /^GET \/(.*) / })'
Pero además sorprendentemente (sobre todo para un fanático de Perl) su respuesta fue: "Sabes que la ...