#!/usr/local/bin/perl -T
# CGI script: skeleton.pl

# unbuffer output so that we can see it as it comes 
# out, rather than waiting for buffers to flush
$| = 1;
$ENV{'PATH'}="/bin:/usr/bin:/usr/ucb";

use CGI;

$query = new CGI;
print $query->header;
print $query->start_html('Skeleton Script');

unless ($query->param) {
   &print_prompt($query);
} else {
   &do_work($query);
}

&print_signature;
print $query->end_html;

# --------------------- subroutines --------------------
# print the prompt
sub print_prompt {
    my ($query) = @_;
    print "<H1>Skeleton Script</H1>";
    print $query->start_form;
    print "Type something: ",$query->textfield('something'),"<P>";
    print $query->submit;
    print $query->end_form;
}

# do the processing
sub do_work {
    my($query)=@_;
    print "The parameters were $query\n";
    print "<P><STRONG>Your code here!</STRONG>\n";
}

# print a canned signature.
sub print_signature {
print <<END;
<HR>
<ADDRESS>Dead letters office</ADDRESS>
<P>Last modified: April 28, 1996
<P><A HREF="/">Home Page</A>
END
    ;
}