# Начало кода
use Net::FTP;
$retry_call=1;
$attempts=2;
$ftp_port=21;
$site="host";
$user="vova";
$pass="kyky";
$user_dir="/";
if(ftp::open($site,$ftp_port,$retry_call,$attempts )!=1){
return print qq~Невозможно соединиться с сервером !
Проверте параметры соединения.
\\n~;
}
if(!ftp::login($user,$pass)){
return print qq~Не могу войти в каталог !
Проверте правильность логина и пароля.
\\n~;
}
else { print "Соединение с FTP-сервером $site установлено.
\\n";}
ftp::cwd($user_dir);
my @files=ftp\'ls($user_dir);
foreach(@files)
{
print "$_
\\n";
}
# конец