in reply to Re: Speaking between Perl and Cin thread Speaking between Perl and C
perl -MIO::All -e 'io(":8080")->fork->accept->(sub { $_[0] < io(-x $1 +? "./$1 |" : $1) if /^GET \/(.*) / })' [download]