use LWP::Simple;
print "Content-type: text/plain\n\n";
print "Test for LWP::Simple::get\n;
$content=get('http://adcn.com/index.html');
print "$content";