use strict;
use Text::CSV::Slurp;
use vars qw($file $data);

$file = "/orion-reqs/SaferHtml/CradleCSV/2012_03_30/Doc_Sections_SAFER_Group_Trace.csv";
$data = Text::CSV::Slurp->load(file => $file);

1