use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Win32::OLE qw(in with);
use Win32;

my $browser = Win32::OLE->new("InternetExplorer.Application");
$browser->{visible}=1;
$browser->Navigate($SelectedAppURL)
	|| die("IE Not Started:", Win32::FormatMessage(Win32::GetLastError()));
        #|| die("IE Not Started:",Win32::FormatMessage(Win32::OLE::LastError()));