#!/usr/bin/perl -w

use strict;
use CGI;
use Storable qw(freeze thaw);

my $cgi1 = CGI->new();

# do some stuff

my $save_cgi = freeze($cgi1);

#
# save $save_cgi to a database
# time passes and you get it back into $save_cgi
# (this is possibly in another process

my $restore_cgi1 = thaw($save_cgi);

my $cgi2 = CGI->new($restore_cgi1);