#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple qw(!head);
use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser';

my $w = new CGI;

print $w->header;
print $w->title('Bay Area Marine Forecast Summary');
print $w->start_html;
print $w->h2('Forecast Test');

#print join "<br>\n", @INC;

unless ( open my $fh, "/usr/lib/perl5/site_perl/5.8.8/LWP/Simple.pm" ) {

print "Can't open LWP.pm for reading: $!\n";
exit;
}

print "Could open LWP.pm for reading\n";

#print "\nINC is @INC\n<br>\n";

my $page = get("http://www.nws.noaa.gov/data/current_obs/KSFO.xml");
#my $page = get("http://lwp.interglacial.com/ch02_03.htm");

print "Page is\n", $page, "\n";