open OUT, ">".$self->get_csv() 
      || die "Could not open file ".$self->get_csv().
         " for writing!";