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

# Modul einbinden
use Net::FTP;

# Variable definieren
my $server = "<SERVER>";
my $benutzername = "<BENUTZERNAME>";
my $passwort = "<PASSWORT>";

# Ftp-Verbindung herstellen und einloggen
my $ftp = Net::FTP -> new ($server) or warn "Nicht verbunden";
$ftp -> login ($benutzername, $passwort) or warn "Nicht eingeloggt";

# Bestand der Ftp-Verbindung während 10 Sekunden nach jeder Sekunde 
# überprüfen und bei deren Nichtbestand eine Aktion auslösen.
for(1...10)
	{
	my $ret;

	eval 
		{
		local $SIG{ALRM} = sub { die "timeout" };
		alarm(5);
		$ret = $ftp -> pwd;
		alarm(0);
		};

	if (!defined $ret)
		{
		$ftp = Net::FTP -> new ($server) or warn "Verbindung abgebrochen";
		print "OK!\n";
		exit;
		}

	sleep 1;
	}