#!/usr/bin/perl
use IO::Socket::Socks::Wrapper (
{
ProxyAddr => 'localhost',
ProxyPort => 1080,
SocksDebug => 1,
SocksVersion => 5,
Timeout => 300
}
);
use Net::FTPSSL;
use LWP::Simple;
my $html = get('
http://www.wieistmeineip.de/');
my($ip) = ($html =~ /<h1 class="ip">([^<]*)<\/h1>/);
print $ip . "\n";#work good
#IO::Socket::Socks::Wrapper->import(Net::FTPSSL:: => 0); # direct network access
#IO::Socket::Socks::Wrapper->import(Net::FTPSSL:: => {ProxyAddr => 'XXX', ProxyPort => 1080});
#not correct work (but work without socks5 proxy and work with other client tools mit socks5 proxy)
my $host = 'localhost';
my $port = '61616';
my $user = 'user1';
my $pass = 'pass1';
my $pfad = '/';
if(my $ftp = Net::FTPSSL->new($host, Timeout => 10, Pret => 1, Port => $port, Debug => 1, DebugLogFile => "myLog.txt")){
$ftp->login($user,$pass);
$ftp->binary();
$ftp->cwd($pfad);
my @ftpdataLIST = $ftp->list($pfad);
print join("\n",@ftpdataLIST);
# Code
$ftp->quit;
}
exit;