# VB-code to be migrated to perl
...
Private objIe As SHDocVw.InternetExplorer
Private objIeWinDoc As Object 'HTMLDocument
...
Public Property Let width(intWidth As Integer)
objIe.width = intWidth
End Property

Public Property Let height(intHeight As Integer)
objIe.height = intHeight
End Property
...
Private Sub Class_Initialize()
 If objIe Is Nothing Then
  Set objIe = CreateObject("InternetExplorer.Application")
 End If
 If objIe Is Nothing Then
  Err.Raise "error: could not spawn IE"
 End If

 objIe.Navigate ("about:blank")
 objIe.Visible = True
 objIe.ToolBar = False
 objIe.StatusBar = False
 Do While (objIe.Busy): Loop
 Set objIeWinDoc = objIe.Document
 objIeWinDoc.open
End Sub

Private Sub Class_Terminate()
 objIeWinDoc.Close
 objIe.Quit
 Set objIe = Nothing
End Sub

Sub WriteText(strText As String, _
    Optional bolBold As Boolean, _
    Optional bolCursive As Boolean, _
    Optional bolUnderline As Boolean, _
    Optional intFontSize As Byte, _
    Optional strFontColor As String)
...
 If intFontSize <> 0 Then objIeWinDoc.Write "<font size =" & intFontSize & ">"
 If strFontColor <> "" Then objIeWinDoc.Write "<font color =" & strFontColor & ">"
 If bolBold Then objIeWinDoc.Write "<B>"
 If bolCursive Then objIeWinDoc.Write "<I>"
 If bolUnderline Then objIeWinDoc.Write "<U>"
 objIeWinDoc.Write strText
 If bolUnderline Then objIeWinDoc.Write "</U>"
 If bolCursive Then objIeWinDoc.Write "</I>"
 If bolBold Then objIeWinDoc.Write "</B>"
 If strFontColor <> "" Then objIeWinDoc.Write "</font>"
 If intFontSize <> 0 Then objIeWinDoc.Write "</font>"
End Sub