$LOGDIR = 'C:\temp\logs'; 
open(INPUT, "$LOGDIR\\sec-ghost01-12-09-2004-21-43.csv") || die ("cannot open log file\n"); 
foreach my $line (<INPUT>) { chomp($line); process each line }