#!/usr/bin/perl -w
use strict;
$|=1;

use LWP::Simple;
use LWP::UserAgent;

print "\$LWP::Simple::VERSION is $LWP::Simple::VERSION\n";
print "Content-type: text/html\n\n";

my $url = "http://wire.ap.org/APnews/center_minor.html?FRONTID=SCIENCE";
my $body = get("$url");

print "$body";