#! /usr/bin/perl
use CGI qw/ :standard/;
# Initialise a html page
print header("text/html");

# Start html page
print start_html(-title =>'Test Page',-bgcolor =>'#ffffff');

# Start the query form
print start_form(-name=>"test",-action=>"aa.cgi",-method=>"POST");

# send data using hidden fields
print hidden(-name=>"tag1",-value=>"data1"),
        hidden(-name=>"tag2",-value=>"data2"),
        hidden(-name=>"tag3",-value=>"data3");

print end_form,end_html;