#!/usr/bin/perl
use strict;
use warnings;

# Modul einbinden
use Net::FTP;

# Ftp-Verbindung herstellen
my $ftp = Net::FTP -> new ("<SERVER>") or warn "Fehler: Nicht verbunden.";
$ftp -> login ("<BENUTZERNAME>", "<PASSWORT>") or warn "Fehler: Nicht eingeloggt.";

# Bestand der Ftp-Verbindung während 10 Sekunden nach jeder Sekunde überprüfen
for(1...10)
	{
	my $test = $ftp -> pwd or warn "Fehler: Konnte Verzeichnis nicht anzeigen.";
	# my $test =  Net::FTP -> new ("<SERVER>") or warn "Fehler: Nicht verbunden.";
	print $test . "\n";
	sleep 1;
	}