my $ftp = Net::FTP->new(
	*******,
	Debug => 1,
	Timeout => 60,
) or die 'Fehler in '.__LINE__;