#!/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;
}

1
2
3

1
2
3
4
5

~/entwicklung 109> perl diff_simple.pl 
neue Datei länger als alte Datei (ab Zeile 4) at diff_simple.pl line 13, <NEU> line 4.