#!/usr/local/bin/perl

#use strict;
use CGI qw/:standard/;
my($var_a, $var_b, $var_c, $var_d, $var_e, $var_f);

$var_a=param('a');
$var_f=param('f');

print 'Content-Type: text/vnd.wap.wml';
print ' 
<?xml version="1.0"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="a" title="test succeeded">
<do type="prev" label="Back"><prev/></do>
<p> 
postfield a='; print $var_a; 
print ' postfield f='; print $var_f;
print ' test succeeded
</p>
</card>
</wml>
';

