#!/usr/bin/perl -w
use strict;
use Win32::OLE;
my $IEWin = Win32::OLE->new('InternetExplorer.Application');
$IEWin->{Visible} = 1;
$IEWin->Navigate2('file:///c:/temp/jsFrameset.htm');
  my $IEDoc = $IEWin->{Document};
    my $frames = $IEDoc->{frames};
...

##</code><code>##

  DB<1> x $IEDoc->{URL}
0  'file://C:\\Temp\\jsFrameset.htm'
  DB<2> x $IEDoc->{fileSize}
0  118
  DB<3> x $IEDoc->{fileModifiedDate}
0  '09/02/2005'
  DB<4>