my $sftp = Net::FTPSSL->new(
	'******',
	Debug => 1,
	Timeout => 60,
) or die 'Fehler in '.__LINE__;
$sftp->login('*****','*****') or die 'Fehler in '.__LINE__;
my $hash_ref = $sftp->list() or die 'Fehler in '.__LINE__;
print "\$hash_ref = '$hash_ref'\n";