#!/usr/bin/perl
use strict;
use warnings;
use lib '/pfad/perlmodule';
use lib '/pfad/perlmodule/lib/perl/5.10.0';

print "INC:\n".join("\n",@INC);
print "\n\n\n\n";

print "Version Net::FTP: ".$Net::FTP::VERSION."\n";
print "Version Exporter: ".$Exporter::VERSION."\n";
print "Version Net::Cmd: ".$Net::Cmd."\n";
print "Version IO::Socket::SSL: ".$IO::Socket::SSL::VERSION."\n";
print "Version IO::Socket::IP: ".$IO::Socket::IP::VERSION."\n";
print "Version IO::Handle: ".$IO::Handle::VERSION."\n";
print "Version Net::SSLeay: ".$Net::SSLeay::VERSION."\n";

use Net::SSLeay 1.58;
use IO::Socket::SSL 2.012;
use Net::FTP 3.05;
#use Net::FTP::File;

my $ftp = Net::FTP->new(
	***,
	Debug => 1,
	Timeout => 60,
	Passive => 1,
	SSL_verify_mode => 0,
) or die 'Fehler in '.__LINE__;
$ftp->starttls() or die "Fehler in ".__LINE__." wegen '$@'";
$ftp->login(***,***) or die 'Fehler in '.__LINE__;
my $hash_ref = $ftp->dir('/tmpdevelop');
for my $key (0..$#{$hash_ref}) {
	my @feld = split /[ ]+/,$hash_ref->[$key];
	print "Zeile: '".join('*',@feld)."'\n";
}