Test Script
==================
use strict;
use warnings;
use Storable qw(freeze thaw);

#number of items to pack
my $iter = 1000000;
#our string to pack into
my $string ='';
#time how long it takes to create a string large enough to hold the data...
Time();
#if the line below is commented out, things take a long time...
$string = 1 x ($iter*56);
Time();
#reset our string...
$string='';
#now lets create the data block...
for my $count (1..$iter) {
  $string.=pack('ddddddd',1,2,3,4,5,6,7);
}
Time();
#how long does it take to freeze this object?
my $fr = freeze( \ $string);
Time();
print "Finished\n";
sleep(2000);

sub Time {
 my ($user,$system,$cuser,$csystem) = times;
 print "$user,$system\n";
}

=======================