print "Lese PW - Datei ..." , "\n";
		
	my $SFTP = $SSH2 -> sftp;
	
	my $Remote_Verzeichnis  = "/home/YAPD";
	my $Lokales_Verzeichnis = "D:/Perl";

	my $Remote_File = 'Werte.txt';
	
	my $File_Handler;  
       $File_Handler = $SFTP -> open( $Remote_Verzeichnis . "/" . $Remote_File );
        
	if ( defined( $File_Handler ) )
       {
			if ( open( LFH, "> $Lokales_Verzeichnis\\$Remote_File" ) )
            {
                my $myLine;    

                binmode( LFH );

                while ( $myLine = <$File_Handler> ) 
                {
                    printf( LFH "%s" , $myLine );
                }
                close( LFH );
            }
            else
            {
                printf( "Could not open local file '%s' for transfer\n" , $Remote_File );
            }
        }
        else
        {
            printf( "Could not open remote file '%s' for transfer\n" , $Remote_File );
        }

	# -------------------------------------------------------------------------------
	
	my $datei = "Neue_Werte.txt";
	
	open ( "in" , "< $datei" ) || die $!;
	
	while ( <in> ) 
	{
		my $Suchwert = $_;
		chomp $Suchwert;
				
		open ( "im" , "< $Remote_File" ) || die $!;
	
		my $Zaehler_Vorkommnisse = 0;
	
		while ( <im> ) 
		{
			my $Offsets   = 0;

			my $Ergebnis_Suche = index( $_ , $Suchwert , $Offsets );
			
			# --------------------------------------------------------
			
			while ( $Ergebnis_Suche != -1 ) 
			{
				$Zaehler_Vorkommnisse++;
	
				$Offsets = $Ergebnis_Suche + 1;
				$Ergebnis_Suche = index( $_ , $Suchwert , $Offsets );
			}
		}
		
		if( $Zaehler_Vorkommnisse == 0 ) { print "Pruefung der Datei in Ordnung !"     , "\n"; }			
		if( $Zaehler_Vorkommnisse  > 0 ) { print "Der Wert ist bereits in der Datei !" , "\n"; }
		
		close "im";
	}
	
	print "\n";
	print "------------------------------------------------" , "\n";
	print "\n";
		
	close "in";