{
        my $oOl = OLE::Storage_Lite->new('test.xls');
        my $oPps = $oOl->getPpsTree(1);
        die( "test.xls must be a OLE file") unless($oPps);

        my $oFile = new IO::File;
        $oFile->open('test.tmp', 'r');

        $oPps->save('add_none.xls');
}

##</code><code>##

16 -rw-rw-r--. 1 alvin alvin 15872 Apr 16 16:33 add_io2.xls
16 -rw-rw-r--. 1 alvin alvin 15872 Apr 16 16:33 add_io.xls
16 -rw-rw-r--. 1 alvin alvin 15872 Apr 16 16:33 add_name.xls
16 -rw-rw-r--. 1 alvin alvin 14336 Apr 16 16:33 add_none.xls
16 -rw-rw-r--. 1 alvin alvin 15872 Apr 16 16:33 add_test.xls
16 -rw-rw-r--. 1 alvin alvin 15872 Apr 16 16:33 add_tmp.xls
16 -rw-r--r--. 1 alvin alvin 13824 Apr 16 16:31 test.xls