open my $Q_FH, '>', \my $query;