Select Code to Download

 my $o = $class->new(id => 1)->load_or_save;
my $frozen = Storable::freeze($o->strip(strip_on_save_ok => 1));
my $thawed = Storable::thaw($frozen);

sub remember
{
  my($self) = shift;
...
    }
  }
};