#!/usr/bin/perl

use strict;
use CGI;
use Tie::File;

my $query = new CGI;
#my $file = $query->param('filename');
my $file = '/tmp/test.csv';
my @lines;
print $query->header();

tie @lines, 'Tie::File', $file or die "No file found to work with.";

print "We got $#lines lines in this file";
foreach my $i(@lines) {
        my @tmp = split (",",$i);
        if($tmp[6] eq "6 Elm") {$tmp[6] = 'XXXXX'}
        print "$i\n";

        }

untie @lines;