#!/usr/bin/perl use CGI; $cgi = new CGI; for($cgi->param()) { $F{$_} = $cgi->param($_); } print "Content-type:text/html\n\n"; print< Gallery Image: "$F{picalt}" - National Geographic for Kids @ nationalgeographic.com HTML $F{picalt} =~ s/'Bearobics'/"Bearobics"/; print<
Close Window
$F{picalt}
HTML print qq'
$F{legend}

' if defined $F{legend}; print<$F{pcredit}
© 2001 National Geographic Society. All rights reserved.
HTML