open(IN,"./$file");
{
   local $/ = "\n\n";
   chomp(@sections = <IN>);
}
close(IN);