#!/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\" c
+olor=\"#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;
}
[download]