- print("Content-Type: application/zip\n");
- print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
- while (<IN>) {
- print($_);
- }
+ $::locale->with_raw_io(\*STDOUT, sub {
+ print("Content-Type: application/zip\n");
+ print("Content-Disposition: attachment; filename=\"${zip_name}\"\n\n");
+ while (<IN>) {
+ print($_);
+ }
+ });