try:

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

I did something similar recently, and it worked fine...

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.