$obSh = Win32::OLE->new('WScript.Shell') or
die "Can't start Shell error=", Win32::OLE::LastErro();
$path = "C:\\PROGRA~1\\INTERN~1\\IEXPLORE.EXE";
$obSh->run("$path $url", 1, true);
undef $obSh;