This isn't necessarily what you're looking for but the POD of IO::All (which is one of my personal favorites for quick and dirty IO:: stuff) has a really slick one-line web server which supports rudimentary CGI:

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

(BTW, I take no credit for this... see the explanation here)