my $Startup = new Startup;
my $Var = OLE::Storage->NewVar();
my $Doc = OLE::Storage->open($Startup, $Var, $file);

##</code><code>##

my @pps = $Doc->dirhandles(0);

##</code><code>##

@pps == $D -> dirhandles ($pps)