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

open ALT, 'c:/mein/pfad/altedatei.txt' or die $!;
open NEU, 'c:/mein/pfad/neuedatei.txt' or die $!;

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

    die "alte Datei länger als neue Datei" if defined $alt and not defined $neu;
    die "neue Datei länger als alte Datei" if not defined $alt and defined $neu;
    die "Dateien sind gleich" if not defined $alt and not defined $neu;
    die "Dateien sind unterschiedlich" if $alt ne $neu;
}