#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
my $content;

open FILE, "</usr/java/tomcat/data.txt";
    $content = '';
    while (<FILE>) {
        $content .= $_;
    }
    close FILE;

print "Content-Type: text/html\n\n";
print "<html>
<head>
  <title>Sample Perl CAPTCHA Query</title>
</head>
<body> $content
</body>
</html>";

 #------------------------------------------------------------------------------
