my $datei = "Werte.txt";
	
open ( "in" , "< $datei" ) || die $!;
	
while ( <in> ) 
	{
		# Hier passiert nichts Relevantes

		# ----------------------------------------------------------
		# Öffnung des File - Handles für PW - Datei
		
		my $SFTP = $SSH2 -> sftp();
		my $File_Handler  = $SFTP -> open( '/home/YAPD/Neue_Werte.txt' ) or die;
	
		print "Lese Datei ..." , "\n";
		
		my $Zaehler_Vorkommnisse = 0;
				
		while ( <$File_Handler> ) 
		{
			my $Charakter = "ZU SUCHENDER WERT";
			my $Offsets   = 0;

			my $Ergebnis_Suche = index( $_ , $Charakter , $Offsets );
			
			# --------------------------------------------------------
			
			while ( $Ergebnis_Suche != -1 ) 
			{
				$Zaehler_Vorkommnisse++;
	
				$Offsets = $Ergebnis_Suche + 1;
				$Ergebnis_Suche = index( $_ , $Charakter , $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"; }
	}
	
	print "\n";
	print "------------------------------------------------" , "\n";
	print "\n";
		
	close "in";