print "Content-type: text/plain; charset=utf-8\n";
print "Content-disposition: attachment; filename=$today.txt\n";
print "\n";
print $output;