open(READ,"/export/home/foo/bar/foo.log") or die "Cannot open foo.log\n";
while ($line = <READ>)
{