#!/usr/local/bin/perl
#Warn browser that HTML is coming
print "Content-type: text/html\n\n";
print header;
print STDOUT "\n\n";
print STDOUT "\n";
print STDOUT "\n";
print STDOUT "\n";
use LWP::Simple;
print $content = get("http://www.nhc.noaa.gov/storm_graphics/AT06/refresh/AL0606W5+gif/144631W_sm.gif");
print STDOUT "\n";
print STDOUT "\n";