# A single statement web server for static files and cgis too
io(":8080")
->accept("-fork")
->( 
    sub { $_[0] < io( -x $1 ? "./$1 |" : $1) if /^GET \/(.*) / 
   }
);