#!/usr/bin/perl

use strict;

use Text::Diff;

my @db;
my @fs;

my $diff = diff ("test.txt","test2.txt", { OUTPUT => sub {
    my $item = shift;
    for(split(/\n/,$item))
    {
	if (m!^\+/!) {
		push(@db, $_);
	} elsif (m!^-/!) {
		push(@fs, $_);
	}
    }
  }});

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

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