my $oOl = OLE::Storage_Lite->new("test.story");
            my $oPps = $oOl->getPpsTree(1);
            print "\n";
            $oPps->save("savefile.story");