#!/usr/bin/perl --

use strict;
use warnings;

{
    use Win32::OLE qw( in );

    my $shell = Win32::OLE->new('Shell.Application')
      or die "ERROR ", Win32::OLE->LastError();

    my @ies = grep { $_->FullName =~ /iexplore\.exe$/ } in $shell->Win
+dows;

    my $url = 'about:blank';
    $url = 'about:mozilla'; # :D

    for my $eye (@ies) {
        $eye->{Offline} = 1;
        $eye->{Visible} = 1;
        $eye->Navigate( $url );
    }
}

__END__
http://msdn.microsoft.com/en-us/library/aa752043(VS.85,loband).aspx
http://en.wikipedia.org/wiki/About:_URI_scheme
[download]

use Win32::OLE qw( with );
with( $eye , qw! Offline 1 Visible 1 ! );
[download]