#!/bin/perl

use strict;
use Win32::OLE qw( EVENTS in with valof );
use Win32::OLE::Variant;
Win32::OLE->Option( Warn => 0 );

my $IE = Win32::OLE->GetActiveObject( 'InternetExplorer.Application' );
if( ! defined $IE )
{
    print "Can not find open object. Creating one...\n";
    $IE = Win32::OLE->new( 'InternetExplorer.Application', "Quit" )
             or die "Unable to create a IE Object\n";
}

Win32::OLE->WithEvents( $IE,'DWebBrowserEvents2' );

$IE->{Visible} = 1;
$IE->{RegisterAsDropTarget} = 1;
$IE->{RegisterAsBrowser} = 1;

my $Doc = $IE->{Document};

### This is what I am trying to print the line to he browser page....Sorry, have not much idea ###

$Doc->{value} = "This is test automation page";

my $filename="test_auto.html";
$IE->SaveAs($filename);

$IE->Quit();