use Win32::OLE;
use Win32::OLE::Variant;
use strict;
use warnings;


my $IE = Win32::OLE->new('InternetExplorer.Application') or die "Unable to create a IE Object\n";
$IE->{Visible} = 1;
$IE->Navigate('http://www.google.com');
sleep 1 while($IE->{Busy});
$IE->Quit();