#persistB.obj
$VAR1 = { foo => 'bar' };

my $object = do "persistB.obj";
$object = b->new($object);