#!/usr/bin/perl

open(DATA,"actualite.txt");
@filecontent = <DATA>;
close(DATA);
print "Content-type: text/html\n\n";
foreach $line(@filecontent) {
	chomp($line);
	$line =~ s/\'/\\\'/g;
	print "document.writeln('$line');\n";
}