#!/usr/bin/perl -wT
use strict;
use CGI qw(:standard);
use CGI::Carp qw (fatalsToBrowser);
#use HTML::Template;
my $initial_page = <<'EOHTML';
EOHTML
require CGI::Ajax;
my $cgi = new CGI();
my $pjx = new CGI::Ajax(order_params => \&order_params);
print $pjx->build_html($cgi, $initial_page);
exit 0;
sub order_params {
my $retval = <<'EOHTML2';
EOHTML2
return $retval;
}