I ran your code on Active Perl 5.6 and it worked fine. Have you tried it with the intervening stuff taken out? Also the man page says to pass the filehandle directly rather than by glob reference:

$query->save(FILEHANDLE)
[download]

But it worked both ways when I tried it.

-- iakobski