my $s = "Hi, Mom!\n";
#    print "Content-disposition: inline; filename=docket.csv\n";
    print "Content-disposition: attachment; filename=docket.csv\n";
    print "Content-length: " . length($s) . "\n";
    print "Content-type: application/octet-stream\n\n";
    print $s;