print $query->header(
  -type => 'application/octet-stream',
  -Content_Disposition => "attachment"
);