Select Code to Download

sub store_object {
    my ( $self, $sref_file ) = @_;
...
    Storable::store ( \%{ $self }, $$sref_file );
    return undef;
}