Select Code to Download

#!/usr/bin/perl -w
use strict;
...
};
my $stored = freeze ($hash);
print "$stored\n";

perl storable.pl
12bluwhitblack
[username dbi]$ PuTTYPuTTY