$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("/data/outgoing/")
	or die "Ziel-Verzeichnis nicht gefunden", $ftp->message;
@dir = $ftp->ls('*.*');
foreach(@dir){
	$filename=$_;
      $ftp->get($filename, "@dest_dir$filename");
};
$ftp->quit();