sub get_ie_proxy {
    return "" unless $^O eq 'MSWin32';
    my %RegHash;
    eval 'use Win32::TieRegistry(Delimiter=>"/", TiedHash=>\%RegHash);';
    return get_ie_proxy_with_registry() if $@;
    my $iekey = $RegHash{"CUser/Software/Microsoft/Windows/CurrentVersion/Internet Settings/"} or return "";
    my $ie_proxy_enable = $iekey->{"/ProxyEnable"} or return "";
    my $ie_proxy_server = $iekey->{"/ProxyServer"} or return "";
    my $ie_proxy_no = $iekey->{"/ProxyOverride"};
    $_[1]=$ie_proxy_no if defined($ie_proxy_no);
    return $ie_proxy_enable=~/1$/ ? $ie_proxy_server : "";
}