#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

my @good = do {
  open my $good, '<', $ARGV[0] // 'good.txt' or die "open(<good>): $!\n";
  <$good>;
};
chomp @good;

my %check = do {
  open my $check, '<', $ARGV[1] // 'check.txt' or die "open(<check>): $!\n";
  map { chomp; $_ => 1; } <$check>;
};

foreach (@good) {
  if (!$check{$_}) {
    print "Configuration lacks $_\n";
    exit 1;
  }
}

print "Configuration is ok\n";
exit 0;