if ($server =~ m/(conopera|176.98.166.98)/i) { # fies, name wurde in IP geaendert
              	$passive = 1;
                $ftp = Net::FTP->new($server, Passive => 1)
                	or die "Cannot connect to $server (Passive=$passive): $@";
              } else {
                $ftp = Net::FTP->new($server)
                	or die "Cannot connect to $server: $@";
              }
                $ftp->login($login, $passwd)
                	or die "Cannot login (Passive=$passive) ", $ftp->message;
                $ftp->cwd($remotedir)
                	or die "Cannot change working directory (Passive=$passive) ", $ftp->message;
                $ftp->binary
                	or die "Cannot change to binary mode (Passive=$passive) ", $ftp->message;
                $ftp->put($localfilename, $remotefilename)
                	or die "put failed (Passive=$passive) ", $ftp->message, "; localfilename: [$localfilename], remotefilename: [$remotefilename]";
                $ftp->quit;