#!/usr/local/bin/perl
#
$nlines = 5;
$lockfile = '/home/hiroshi/vtpwork/lockfile';
$datafile = '/home/hiroshi/vtpwork/data.txt';

if( $ENV{"REQUEST_METHOD"} eq "POST"){
	$n_read =  $ENV{"CONTENT_LENGTH"};
	if( $n_read >= 2000){
		$n_read = 2000;
	}
	$n_read = sysread( STDIN, $txt, $n_read);
}else{
	$txt = $ENV{"QUERY_STRING"};
}

open( FH, "$datafile");
@data = <FH>;
close( FH);

$en = $txt;
if( $en > $#data){
   $en = $#data;
}
$st = $en - $nlines+1;

print "Content-type: text/plain\n\n";
print sprintf( "%d\n", $en);
print @data[$st..$en];