#!/usr/bin/perl

use strict;
use warnings;
use Algorithm::Diff;
use Tie::File;

tie my @x, "Tie::File", $ARGV[0] or die $!;
tie my @y, "Tie::File", $ARGV[1] or die $!;

my $diff = Algorithm::Diff->new(\@x,\@y);

my (@db, @fs);

while ($diff->Next()) {
    next if $diff->Same();
    push @db, $diff->Items(2);  # hinzugekommen
    push @fs, $diff->Items(1);  # weggefallen
}

foreach my $dbitem (@db) {
    print $dbitem, "\n";
}

foreach my $fsitem (@fs) {
    print $fsitem, "\n";
}