Ftp ошибка

[Satell]

Есть программка на моём хостинге выдаёт ошибку
can't call methd "login" on an undefined value в этой строчке
$ftp->login($username, $password);
на другом хостинге работает нормально

там где работает нормально стоят такие модули
Net::FTP Net::FTP::A Net::FTP::dataconn
Net::FTP::E Net::FTP::I Net::FTP::L

там где не работает
5.8.8::Net::FTP::E
5.8.8::Net::FTP::L
5.8.8::Net::FTPSSL

Net::FTP
Net::FTP::A Net::FTP::dataconn Net::FTP::E
Net::FTP::E Net::FTP::I Net::FTP::L
Net::FTP::L Net::FTPSSL
некоторые почему-то по два-три раза, можно ли как-нибудь без админа что-нибудь сделать?

use Net::FTP;

$hostname = 'login';
$username = 'user';
$password = 'pass';

# Hardcode the directory and filename to get
$home = 'public_html';
$filename = 'text.txt';

# Open the connection to the host
$ftp = Net::FTP->new($hostname);		 # construct object
$ftp->login($username, $password);	  # log in

$ftp->cwd($home),"\n";				  # change directory
print $ftp->ls($home),"\n";		

$ftp->put('/home/public_html/xxx.org/cgi-bin/file.txt');

$ftp->quit;

 

[Vovochka]

Сделай так:

$ftp = Net::FTP->new($hostname) or die "Unable to create ftp $!";

У тебя не проходит создание объекта.
может $! даст небольшое описание ошибки.

Честно говоря не работал с этими модулями, так что ничего конкретного не скажу.