open (QUERY, '>query.txt') || die $!;
$q->save(QUERY);
close(QUERY);
print $q->header();