#! /usr/bin/perl

# flip_flop - simple multiple-output-page CGI.pm script

# MAIN-BODY
use CGI;

my ($cgi) = new CGI;
my ($url) = $cgi->script_name ();	# this script's own URL

print $cgi->header ();
if ($cgi->param ("page") ne "b")	# display page A
{
	print $cgi->start_html (-title => "Flip-Flop: Page A");
	print "This is Page A.<BR>To select Page B, ";
	$url .= "?page=b";		# attach parameter to select page B
	print $cgi->a ({-href => $url}, "click here");
}
else								# display page B
{
	print $cgi->start_html (-title => "Flip-Flop: Page B");
	print "This is Page B.<BR>To select Page A, ";
	print $cgi->a ({-href => $url}, "click here");
}
print $cgi->end_html ();
# MAIN-BODY