#!/usr/bin/perl -w 
open(OUT,"> /export/home/foo/bar/test.csv") or die "Cannot open output file;
print OUT "foo,bar,totally foobar\n"

##</code><code>##

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