#!/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"