#!/usr/bin/perl -w
#
use strict;
use CGI;
use FreezeThaw qw(freeze thaw);

my $page = CGI->new();
my $ice_cube = freeze $page;

print $page->header();
print $page->start_html();
print $page->startform();
print qq(<INPUT TYPE='HIDDEN' NAME='FROZEN' VALUE='$ice_cube'>\n);
print $page->endform();
print $page->end_html();