Select Code to Download

print "$o{0} $o{0}->{hi}\n";

print "$o{0}->{hi}\n";

{
# implements persistence based on dirty and tied persistence in %o
...

 $p=Pwo->Pwo("tst.db" );
 $p->flush();