open NEWDATA, ">>newdata.txt" or die "Can't append to newdata.txt: $!";
format NEWDATA
.....#stuff goes here
.

write NEWDATA while( @data = $query->fetchrow );
close NEWDATA;