{
        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');
}