Select Code to Download

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

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

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