#!/usr/bin/perl

use DBI;
use CGI;


$q = new CGI;

print $q->header;

open(A,"text.txt");
$t=<A>;
close(A);
print "document.write('$t');";