#!/usr/bin/perl -w
use strict;

my $TestFile_Read   = "testfile_1";
my $TestFile_Search = "testfile_2";

if( ! open( RFH, $TestFile_Read))
  {
  print STDERR "Test File '$TestFile_Read' kann nicht gelesen werden !\n";
  exit 1;
  }

if( ! open( SFH, $TestFile_Search))
  {
  print STDERR "Test File '$TestFile_Search' kann nicht gelesen werden !\n";
  exit 1;
  }

while( my $line_r = <RFH> )
   {
   chomp $line_r;
   # print "File_Read: $line_r\n";
   open( SFH, $TestFile_Search);
   while( my $line_s = <SFH> )
      {
      chomp $line_s;
      # print "File_Search: $line_s\n";
      if( $line_r eq $line_s ) 
        {
        print "Gefunden ($TestFile_Read in $TestFile_Search): $line_s\n";
        $found = 1;
        last;
        }
      }
   }
close( SFH);
close( RFH);

exit 0;