Select Code to Download

use Storable qw(freeze thaw);
...
$buffer = freeze($obj);

sub store {
    my $obj = shift;
    my $key = $obj->key;
...
    }
    return undef;
}

store \%table, 'file';
$hashref = retrieve('file');

store_fd \@array, \*STDOUT;
nstore_fd \%table, \*STDOUT;
$aryref = fd_retrieve(\*SOCKET);
$hashref = fd_retrieve(\*SOCKET);