#!/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;
        }