#!/usr/bin/perl

use warnings;
use strict;
use CGI ':all';

my $q = new CGI;
print $q->header();
print $q->param();
print '

 <form action="test.fcgi" method="post">

        <input type="hidden" name="test" value="test"> 
        <input type="submit" name="Submit" value="okay">
 </form>
';