#!/usr/bin/perl use LWP::Simple; $res = &get("http://www.gofuckyourself.com"); print "Content-type: text/html\n\n"; print $res; exit 0;