use LWP::Simple;
$destURL = "http://www.yahoo.com";
$doc = get "$destURL";
print "Content-Type: text\html\n\n";
print $doc;