...
unless(open (FILE, $domainList)) {
    print "CRIT: Can't read file '$domainList': $!\n";
    exit 1;
}
my @dom = <FILE>;
...