#!/usr/bin/perl
use strict;
use warnings;

open ALT, './altedatei.txt' or die $!;
open NEU, './neuedatei.txt' or die $!;

while (1) {
   my $alt = <ALT>;
   my $neu = <NEU>;

   die "alte Datei länger als neue Datei (ab Zeile $.)" if defined $alt and not defined $neu;
   die "neue Datei länger als alte Datei (ab Zeile $.)" if not defined $alt and defined $neu;
   die "Dateien sind gleich" if not defined $alt and not defined $neu;
   die "Dateien sind unterschiedlich in Zeile $." if $alt ne $neu;
}