I:S:S:W runtime proxy changing test

pchange.pl

BEGIN {
	$ENV{SOCKS_DEBUG} = 1;
}
use IO::Socket::Socks::Wrapper (
	Net::FTP => {
		ProxyAddr => 'localhost',
		ProxyPort => 1080,
		SocksVersion => 5
	},
	Net::FTP::dataconn => {
		ProxyAddr => 'localhost',
		ProxyPort => 1080,
		SocksVersion => 5
	}
);
use Net::FTP::AutoReconnect;
use Data::Dumper;
use strict;

my $ftp = Net::FTP::AutoReconnect->new('gorodok.net', Passive => 1)
	or die $@;
$ftp->login('yyy', 'xxx')
	or die $ftp->message;
my @list = $ftp->ls()
	or die $ftp->message;
print Dumper \@list;
$ftp->quit();

IO::Socket::Socks::Wrapper->import(
	Net::FTP:: => {
		ProxyAddr => '87.117.198.197',
		ProxyPort => 1080,
		SocksVersion => 4
	},
	Net::FTP::dataconn:: => {
		ProxyAddr => '87.117.198.197',
		ProxyPort => 1080,
		SocksVersion => 4
	}
);


$ftp = Net::FTP::AutoReconnect->new('gorodok.net', Passive => 1)
	or die $@;
$ftp->login('yyy', 'xxx')
	or die $ftp->message;
@list = $ftp->ls()
	or die $ftp->message;
print Dumper \@list;
$ftp->quit();