open DIRECTORIES, "<:crlf", $source or die $!;
                     ^^^^