write_file("$dir/name", $_);
print "created section $section ($dir) - $_\n";
next;
write_file("$dir/name", $_);
print "created section $section ($dir) - $_\n";
next;
$query++;
my $filename = $dir . "/" . substr("0$query", -2) . ".cql";
write_file($filename, $_);
$query++;
my $filename = $dir . "/" . substr("0$query", -2) . ".cql";
write_file($filename, $_);