#!/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); }