#!/usr/bin/perl
use strict;
use warnings;
use Net::FTP;

my $host = "ftp.1234.de";
my $user = "xxx";
my $pass = "xxx";
my $dest_dir = "/home/datafiles/data/";
my $ftp = "";
my @dir = "";
my $filename = "";
my $now = "";

$ftp = Net::FTP->new($host, Debug => 0)
     	or die "Es konnte keine Verbindung zu $host: $@ aufgebaut werden", $ftp->message; 

$ftp->login($user, $pass);

$ftp->cwd("/download/data/")
	or die "Ziel-Verzeichnis nicht gefunden", $ftp->message;

@dir = $ftp->ls('*.*');

foreach(@dir){

  eval   {
    $filename=$_;
    print "\n\n versuche $filename herunterzuladen\n";
    $ftp->get($filename ,"$dest_dir");
    print " $filename heruntergeladen\n" ;
  };
  
  if($@){ #Fehlerabfrage  
    onError("Fehler beim download von $filename : \n\n $@");
  }
}

print "\n Download beendet \n";