#!/usr/bin/perl -w

use strict;
use HTML::Template::Expr;

my $FNAME = $ENV{SCRIPT_NAME};

my $tmpl = HTML::Template::Expr->new( filename => "wa_main2.tmpl", 
						die_on_bad_params => 0
						#, debug => 1 
						);
						
$tmpl->param( FNAME => $FNAME);

print "Content-type: text/html\n\n", $tmpl->output;

exit;