#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use CGI ':standard';

my  $data2="/home/users/some_path/edit/data2.txt";
my  $data1 ="/home/users/some_path/edit/data1.txt";
my  $data3 ="/home/users/some_path/edit/data3.txt";

my $keys;
my $values;
my %dbs	= 	(
				Data1		=>	$data1,
					Data2			=>	$data2,
					Data3		=>	$data3,
				);

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

foreach $keys (sort keys %dbs)	{
	$values = $dbs{$keys};

	print "<p><font face=\"Arial, Helvetica, sans-serif\" size=\"3\" color=\"#CC0000\">$keys contents as follows:</font></p>\n";

	open FILE, "$values" or die "Can't open $values: $!";
	flock (FILE, 2) or die "Can't lock $values for reading: $!";		
	foreach my $line (<FILE>) {
		chomp $line;
		$line =~ s/<br>/ /g;
		print "$line<br>\n";
	}
	close FILE;
}