#!C:\perl\bin\perl.exe
##!/usr/bin/perl -w -T

use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use Fcntl qw/:DEFAULT :flock/;
$CGI::POST_MAX=1024 * 100;
$CGI::DISABLE_UPLOADS = 1;

my $file = "data12.dat";
my @data;

sysopen(file, $file, O_RDONLY) or die $!;
flock(file, LOCK_SH) || die "flock failed $file $!";
@data = <file>;
close(file) or warn "close failed $file $!";

print "Content-type: text/html\n\n";
print "@data\n";