use Net::FTP;
            $ftp = Net::FTP->new($host);    # zum Host verbinden
            unless (defined $ftp) {
                print "$@\n";
                die "Can't create Net::FTP-Object\n";
            }


            $ftp->login($user, $pass);
            $ftp->binary();
            $ftp->get($source,$destination) || print "laden der Datei fehlgeschlagen ";
            $ftp->quit;