in reply to Creating a simple HTTPD in Perl

have a look at thttpd