use strict;
use Win32::OLE;

my $ie = Win32::OLE->new( 'InternetExplorer.Application' ) 
        or die "error starting IE";
$ie->{visible} = 1;
$ie->navigate( 'https://internal.site.of.doom/' );
sleep(4);
if(!defined $ie->Document())
  {
    print STDERR "Nope that failed as well");
  }
else
  {
    print "We have something back!\n";
  }