#! perl -w

# poordiff.pl -- a poor man's diff

use strict;

my $in1 = shift || die "no first file";
my $in2 = shift || die "no second file";

open IN1, $in1 or die "input $in1: $!\n";
open IN2, $in2 or die "input $in2: $!\n";

my $nr = 0;
while( defined( my $r1 = <IN1> ) and defined( my $r2 = <IN2> ) ) {
    $r1 =~ s/\s+$//;
    $r2 =~ s/\s+$//;
    ++$nr;
    print "files differ at line $nr\n" if $r1 ne $r2;
}