#!/usr/bin/env perl
## 
use warnings;
use strict;

use Data::Dumper;
use Storable;

package Obj;

sub new{
  my $class = shift;
  my $self = {};
  bless $self, $class;
  return $self;
}

sub set_value{
  my ($self, $val) = @_;
  $self->{data} = $val;
}

sub get_value{
  my $self = shift;
  return $self->{data};
}

package main;

my $obj1 = Obj->new;
$obj1->set_value("serialiased object");

store $obj1 , "serialized_file.data";
print "##### OBJ1 #####\n";
print Dumper($obj1);

my $obj2 = retrieve "serialized_file.data";
print "\n##### OBJ2 #####\n";
print Dumper($obj2);

exit 0;