#!/usr/bin/perl
$|++;
use strict;
use CGI;

my $q = new CGI();
my $thingtodo = $q->param("thingtodo");
print $q->header();
print $q->starthtml();
print qq(<form method=post action="/dir/cgi-bin/this.pl");
if ( $thingtodo eq "somethingnew" ) {
  somethingnew();
else
  defaultpage();
}
print qq(</form>);
$q->end_html();
exit;

sub defaultpage {
  print $q->p("default page");
  print <<EOHTML;
     <input type=hidden name=thingtodo value=somethingnew>
     <input type=submit value="press for something new">
EOHTML
;
}
sub somethingnew {
  print $q->("something new");
  print <<EOHTML;
    <input type=submit value="press to go home">
EOHTML
;  
}