use Win32::OLE;
use Win32;
use CGI;

my $q = new CGI;
print $q->header;
my $browser = new Win32::OLE 'InternetExplorer.Application';
print Win32::FormatMessage( Win32::GetLastError() );
$browser->Navigate("http://www.apple.com", 0, 'xyzzy');