#!/usr/bin/perl -w
use strict;
use LWP::Simple;
print "Content-type: image/gif\n\n";
binmode STDOUT;
getprint "http://www.nhc.noaa.gov/storm_graphics/AT06/refresh/AL0606W5+gif/144631W_sm.gif";