Select Code to Download

   print $query->header(
                        -type           => 'text/html',
...
                        -status         => '400',  
                        -Content_Length => '100000',
                       );