#!/usr/bin/perl
use strict;
print "Pragma: \n";
print "Cache-Control: \n";
print "Content-Disposition: attachment; filename=\"big-test.csv\"\n";
print "Content-type: application/octet-stream\n\n";
print "Test,One,Two,Three\n";
exit;