#!C:\perl\perl\bin -w

use Net::FTP;
use Encode qw/encode decode/;
use utf8; 

  if ($ftp=Net::FTP->new('xxx.de'))
    {
      if ($ftp->login('xx','xx')or die("Login hat nicht geklappt"))
        {
         $ftp -> binary();
         $ftp->cwd('test/listen');
         my $datei = 'C:\Users\Hago\AAProjekte\Hofgut-o\AlleListen_2015\preisliste_G.csv';
         open my $fh,"<:utf8", $datei or die("Mist 1");
                $ftp->put($fh, $datei);
                close $fh;
          $ftp->quit();
        }
    }

print "Alles perfekt";
exit;