Look into HTTP::Daemon

This would be great advice if he were creating a standalone web-serving app, but he specifically mentions that he's using Apache, so he doesn't need to handle any HTTP stuff at all, just take the input Apache gives him and print content.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]