#!/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};
...