use Algorithm::Diff;

my @a = grep( !/Database:/, split('\n', `mysqldump -d tasker`));
my @b = grep( !/Database:/, split('\n', `mysqldump -d test_tasker`));

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

while($diff->Next()) {
    next if  $diff->Same();
    next if /Database:/;
    print "< $_\n"   for  $diff->Items(1);
    print "> $_\n"   for  $diff->Items(2);
}