I put that in and it is still not working maybe I put the syntax in wrong ?

{
warn("Couldn't get lock for reading: $!");
alarm(0);
close LOG;
return undef;
}>br/>
$Dealid = $query->param($name);

while ($line = <LOG>)
{
chomp($line);
($Time, $Dealid, $Clientid, $CurrencyPair) = split(/\,/, $line);
#if ($name =~ /$Dealid/)
{
unshift(@rows,