Net::FTPSSL error

[Ashok Shrestha]

Hi all,

System Info:
FreeBSD 6.0-RELEASE
bsdpan-Net-FTPSSL-0.04
p5-Net-SSLeay-1.30_1
perl-5.8.7



I'm trying to use Net::FTPSSL to connect to an FTP server via SSL.



Here is the script:

#!/usr/bin/perl -w

  use Net::FTPSSL;

  my $ftps = Net::FTPSSL->new('127.0.0.1',
                              'Encryption' => 'E',
                              'Debug' => 1,
                              'Timeout' => 20)
    or die "Can't open 127.0.0.1";

  $ftps->login('username123', 'password123') or die "Can't login: ",
$ftps->$last_message();

  $ftps->cwd("/working") or die "Can't change directory: ", $ftps->last_message;

  $ftps->get("C13.txt") or die "Can't get file: ", $ftps->last_message;

  $ftps->quit();




Here is my error:
./test_FTPSSL.pl
Name "main::last_message" used only once: possible typo at
./test_FTPSSL.pl line 11.
>>> USER username123
<<< 331 Please specify the password.
>>> PASS password123
Use of uninitialized value in length at (eval 7) line 1.
Use of uninitialized value in string eq at blib/lib/Net/SSLeay.pm
(autosplit into blib/lib/auto/Net/S

SLeay/ssl_read_all.al) line 1615.
Can't read on socket:  at ./test_FTPSSL.pl line 11





Are there any relevant conf files I should post? Any ideas how to
resolve this issue?






-- Ashok Shrestha