my $cgi = CGI->new();
    my $s = "Hi, Mom!\n";
    print $cgi->header(-type => 'text/csv', -attachment => 'filename.csv', -Content-length => length($s));
    print $s;