$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("/daten/outgoing/")
	or die "Ziel-Verzeichnis nicht gefunden", $ftp->message;
@dir = $ftp->ls('*.*');

foreach(@dir){

    $filename=$_;
  
    $ftp->get($filename, "@dest_dir$filename");
	
#ab hier soll umgewandelt werden
   
open my $fh, '<', "@dest_dir$filename" or die "Could not open $filename: $!";
open my $ofh, ">", "@dest_dir$filename_converted" or die "Could not open $filename_converted: $!";

while (my $line = <$fh>) {

my $status  = $csv->parse($line); # ggfs. fehler abfangen
    my @columns = $csv->fields();

    $status = $ocsv->combine(@columns); # ggfs. fehler abfangen
    $line   = $ocsv->string();

    $line =~ tr/,/;/;

print $ofh $line;
close $fh;

	}
  }
print "\n Download beendet \n";
$ftp->quit();