Stuff

use strict;
use warnings;
use Config::Abstract::Ini;
use Getopt::Long;

require "io.pl";
require "cleanup.pl";

print "GoT Programming Contest 3: MoaM sorter\n\n";

# Set default values
my $meetingFile="meeting.ini";
my $participantsFile="deelnemers.ini";
my $help="";
our $verbose="";
GetOptions ('m=s' => \$meetingFile, 'p=s' => \$participantsFile, 'h' => \$help, 'v' => \$verbose);

$help ? print "helpfilehere" : 1;

my %rawMeeting = readMeetingData($meetingFile);
my %rawParticipants = readParticipantData($participantsFile);

#my %meeting = cleanMeetingData(%rawMeeting);
#my %participants = cleanMeetingData(%rawParticipants);