FTP over SSL Verbindung funktioniert nicht.

Hallo,

zuerst muss ich gestehen, dass ich nicht der Profi in Perl
Programmierung bin, deshalb verzeiht mir, wenn ich vielleicht etwas
sehr dummes mache und nicht von selbst drauf komme.

Ich habe die Aufgabe mit Perl Daten auf unf von einem FTP Server zu
transferieren.
Der Server nutzt als Protokoll FTP mit TLS/SSL (Implicit).

Ich habe mir nun das Modul Net::FTPSSL angesehen. Damit konnte ich auch
das Login auf dem Server bereits realisieren. Aber leider funktioniert
der Dateitransfer nicht.

Hier zuerst mal das Script, das ich verwende.

-------START PERL ------
use Net::FTPSSL;
use Mail::Sendmail;
use File::Copy;

my($ftps);

$ftps =3D Net::FTPSSL->new("ftp.server.de",Port =3D> 990,Encryption =3D>
"I",Timeout =3D> 2, Debug =3D> 5, Passive =3D> "0") or die "Error connecting
to FTP Server for ConnectionTest: $@";
$ftps->login("username","*******") or die "Can't Login to Server: ",
$ftps->last_message;
$ftps->cwd("TEST") or die "Can't change directory: ",
$ftps->last_message;
$ftps->get("test.xml") or die "Can't save file to server: ",
$ftps->last_message;
$ftps->quit();
------END PERL------

Ich bekomme nun folgende Fehlermeldung:

------START FEHLER------
<<< 227 Entering Passive Mode (62,128,7,123,4,11).

>>> USER username

<<< 331 Password required for username.
>>> PASS ******

<<< 230 Login OK. Proceed.
>>> CWD TEST

<<< 250 Folder changed to "/TEST".
>>> PBSZ 0

<<< 200 PBSZ Command OK. Protection buffer size set to 0.
>>> PROT P

<<< 200 PROT Command OK. Using Private data connection
>>> PASV

connect: Unknown error at d:/Perl/site/lib/Net/SSLeay/Handle.pm line
166.
---------END FEHLER-------

Nach meinem Verständnis versucht perl die Daten im PASV Mode zu
übertragen. Der Server unterstützt das aber leider nicht.

Wie kann ich dies nun hinbekommen?

Für Eure Hilfe schon mal jetzt Vielen Dank

Gruß
Paul