#!/s/std/bin/perl use strict; use CGI qw(:standard); print header; my $thispage = 1; $thispage = param('page') if (param('page')); my @IMAGES = ( "page-1-title.jpg", "page-2-copyright.jpg", "page-3-dedication.jpg", "page-4-table.jpg", "page-5-picture.jpg", "page-6-text.jpg", "page-7-text.jpg", "page-8-text.jpg" ); my $nextpage = $thispage+1; $nextpage = 1 if ($nextpage == $#IMAGES+2); my $previouspage = $thispage-1; my $printfirst = "\<\< \<"; $printfirst = "" if ($thispage == 1); my $printlast = "\> \>\>"; $printlast = "" if ($thispage == $#IMAGES+1); print < The Gas Kids
$printfirst $printlast
Home | About the Book | First Pages | TV Commercial | About the Author | Author Interview | In the Making | Simple Green Tips
Contact Us at: dawncraft\@theGASkids.com
© 2011 The GAS Kids. All Rights Reserved
EOF ;