use strict;
use warnings;
use Win32::TieRegistry( Delimiter=>"/", ArrayValues=>0 );
use Win32::API;

my %proxy_cfg = (
           proxy_enable    => 1,
           proxy_host    => '149.121.12.4:8080',
            );

my $regpath  = 'HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVe
+rsion/Internet Settings/';
my $p_enable = $regpath . 'ProxyEnable';
my $p_server = $regpath . 'ProxyServer';

$Registry->{$p_enable} = [ pack("L",$proxy_cfg{proxy_enable}), "REG_DW
+ORD" ];
$Registry->{$p_server} = $proxy_cfg{proxy_host} if $proxy_cfg{proxy_en
+able};

my $InternetSetOption = Win32::API->new("wininet", "InternetSetOption"
+, [qw(N N N N)], 'N');
$InternetSetOption->Call(0, 39, 0, 0) || die "$!\n";
$InternetSetOption->Call(0, 37, 0, 0) || die "$!\n";

print $proxy_cfg{proxy_enable} ? "Proxy enabled to $proxy_cfg{proxy_ho
+st}\n" : "Proxy disabled\n";
[download]