#!/usr/bin/perl -w
use strict;
use lib '/site_path/path/site_perl/5.005/';
use Storable qw( freeze thaw );
my $hash = {
	'black' => 1,
	'white' => 2,
	'blue' => 3,
};
my $stored = freeze ($hash);
print "$stored\n";