print "Content-Type: text/plain; charset=UTF-8\n\n";
foreach my $line(@lines){
  print "$line\n";
}