#!/usr/local/bin/perl

require "./ReadParse.pl" || die "error loading ReadParse.pl\n";

ReadData();
ReadFromFile();


sub ReadData() {
my (%in);
# ReadParse returns an associative array of key-value pairs:
%in = ReadParse();
$filename = $in{'filename'};
return 1;
}

sub ReadFromFile() {

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


$file = "./tmp/$filename";
print  "The values read from the file \" $file \" are ...\n
"; open(R, "$file"); while($line = ) { print "$line \n
"; } close(R); }