Testing JavaScript

#!/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"; ##

##

C:\WINDOWS\Desktop>perl test_lwpsimple.pl
$LWP::Simple::VERSION is 1.33
Content-type: text/html

Use of uninitialized value in string at test_lwpsimple.pl line 16.

C:\WINDOWS\Desktop>

##

##

C:\WINDOWS\Desktop>perl -Ic:\perllib\libwww-perl-5.63\lib test_lwpsimple.pl
$LWP::Simple::VERSION is 1.35
Content-type: text/html








Testing JavaScript





C:\WINDOWS\Desktop>